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With  Commodore  128's  instead  of  Appie  lie's, 
tiiese  icids  wouid  be  on  computers 

instead  of  in  line. 


Meet  the  Commodore  128;"  The 
new  personal  computer  that's  al- 
ready destined  to  be  at  the  head 
of  its  class.  It  not  only  outsmarts 
the  Apple  "lie  in  price,  if  comes 
out  way  ahead  in  performance. 

A  lower  price  is  welcome 
news  to  any  tight  school  budget. 
But  it's  not  the  only  way  the  128 
saves  you  money  You  only  need 
to  buy  one  external  disk  drive  to 
network  eight  Commodore  128's 
from  a  teacher's  desk.  The 
Apple  lie  has  a  built-in  disk  drive. 


That  adds  a  built-in  extra  cost  for 
a  feature  your  classroom  doesn't 
really  need.  There's  even  more  to 
the  Commodore  128  than  being 
able  to  put  more  students  on  com- 
puters for  less  money 

There's  more  intelligence. 

As  your  students  grow  smarter, 
so  does  the  Commodore  128.  It's  a 
computer  they'll  find  more  useful 
because  it's  capable  of  expanding 
from  128K  to  512K  memory  The 
Apple  lie  doesn't  expand,  making 


it  less  versatile.  If  also  doesn't 
have  the  Commodore  128's  ex- 
panded keyboard  that  offers 
more  commands  for  easier  pro- 
gramming and  more  varied 
use  of  graphics  and  text.  Or  a 
numeric  keypad  that's  a  real 
necessity  when  using  a  computer 
in  math  or  science  classes. 

More  software. 

The  Commodore  128  is  one 
new  personal  computer  you 
won't  have  to  wait  for  software 


S>  Commoijcijg  W85  - 


to  catch  up  to.  It's  compatible 
with  over  3,000  programs  and 
peripherals  designed  for  the 
Commodore  64'"  many  of  which 
your  school  may  have.  And  in  the 
128  and  CP/M®  modes,  there  are 
programs  for  students  who  want 
to  get  down  to  business  and 
learn  spreadsheets,  file  manage- 
ment or  other  professional  uses. 

More  convenience. 

Here's  a  feature  you'll  also 
find  intelligent.  Should  anything  go 


wrong  with  your  Commodore  128's, 
just  call  toll-free  800-247-9000.  We 
have  an  exclusive  school  sen/ice 
agreement  with  RCA  and  over  600 
independent  service  companies 
to  give  you  fast  repair 

When  it  comes  to  fitting  more 
computers  into  a  tight  school 
budget,  come  size  up  the 
Commodore  128.  For  more 
intelligence,  and  a  price  that 
mal<es  sense,  you'll  find  it's 
one  sure  way  to  lower  the 
cost  of  a  higher  education. 


Program  shown  Is  'Heactii^g  Professor' from  Commodore.  ®  Comrnodore  I9S4. 


COMMODORE  128^  PERSONAL  COMPUTER 


»Apple  IS  a  legislered  trademoik  of  Apple  Computer,  nc 
•  CP/M  is  o  registered  1rademori<  of  Digital  Research.  Inc 


A  Higher  Intelligence 


Epson 
aU  your  cone 


You  have 

your  computer. 

Now  you  want 

a  printer. 

And  you 

have  natural 

concerns. 

Canyon 

get  a  serious 

printer  without 

having  to  spend 

serious  money? 

What  about 

compatibility? 

How  reliable 

are  they? 

Read  on. 


YEARS  AHEAD  OFTHE 

COMPETITION 

Wliile  nwst  other  printers  imly  offer 

standard  90-day  warranties,  we  stand  behind 

Epson  printers  for  a  full  year. 

Of  course,  the  waiTanty  is  one  benefit  of 

owning  an  Epson  tfiat  veryfeu)  pef/ple  ever  Imve  the 

oppm-tunity  to  lake  advantage  of. 

AnoUier  benefit  you  probably  wonl  use  is  the 

industry^  strongest  local  service  netivork.  But  it^ 

nice  to  know  it^  there. 


INCOiARAIINUTlK 

the  irrecancUable  difference. 


Software  drives  your  computer. 
Software  also  drives  your  printer. 
And  it's  very  possible  that  your 
computer  software  will  not  be  com 
patible  with  your  printer. 

This  can  be  shocking  when  the 
p's  on  your  morutor  come  out  as 
q's  on  your  printer. 


But  Epson  printers  are  the 
standard  to  which  virtually  all 
major  computer  software  is  written. 
So  whether  you  have  an  IBM'  PC 
or  the  newest  name  on  the  market, 
there  are  Epson  printers  for  vir- 
tually any  hardware/ software 
combination. 


Is  it  an  Epson 
IsrititanEpson? 

For  over  a  decade,  mgjor 
computer  companies  have 
staked  their  own  reputa- 
tions on  the  reliability  and 
performance  of  Epson 
printers  by  coming  to  us  for 
the  printers  they  sell  with 
their  computer  systems. 

The  most 

TRUSTED 

printers 
in  the 

WORLD 

Tbday,  more  homes  and  busi- 
nesses rely  on  Epson  printers 
than  any  other  printers  in  the 
world.  And  the  reason  is  this.  Day 
to  day,  year  to  year,  you  can  count 
on  them.  Epson  printers  are 
built  for  years  of  worry-free  serv- 
ice. In  fact,  most  of  our  printers 
have  been  working  longer  than 
most  of  our  competitors  have 
been  in  the  busmess. 

You  know  you  need  a  printer 
to  get  the  best  from  your  com- 
puter. And,  if  you're  going  to 
spend  your  good  money,  you 
shouldn't  have  to  settle  for  some- 
thing unproven  or  less  than 
reliable. 

Check  around.  Now  you  can 
afford  an  Epson,  Why  settle  for 
anything  else? 


answers 
ems  in  print 


HARD  COPY  DECISIONS  MADE  EASY. 


For  almost  any  com- 
puter. With  the  Epson 
Spectrum"'  LX-80  printer, 
and  interface  cable,  you  can 
work  with  almost  any  com- 
puter. Most  often  used  with 
the  Apple  He*  and  IBM  PC, 
it  prints  out  100  characters 
per  second  in  draft  mode. 
And  16  characters  per 


ONIY 


9i\^nc 


PRINTERS 

COULD  GENERATE 
PRINT  LIKE  THIS 


tt  Thank  you  for  making 
such  a  nigged  yet  so  fan- 
tastic in&je  of  hardware,  ff 
L.F.G.,  Martinez,  CA 

a... a  reli^in  this 
industry  ojtenfaulted  by 
products  designed  to 
last  about  ninety  days,  ff 

John  Cameron, 

Medical  Director, 

Raleigh  HUls  Hospital 

4  il  have  had  my  Epson 
about  six  weeks . . .  my 
only  regret  is  that  Ididnt 
replace  my  old  printer  a 
year  ago.  99 

L.A.R.,  29  Palms,  CA 


second,  Near  Letter  Quality 
With  SelecTVpe  push- 


'Sotbc  i/ii,  siiiiu  is: 
'Wfiicli  Eijuoii.?" 

button  typestyle  control 
and  excellent  gi-aphic  capa- 
bilities, it  offers  a  lot  of 
performance  for  not  a  lot  of 
money  Available  through 
Epson  authorized  com- 
puter specialty  stores. 

For  the  Apple  nc*  and 
IBM'  PCjr.  The  Epson 
Spectrum"  LX-90  is  the 
perfect  match  for  the  Apple 
lie  and  IBM  PCjr.  Also 
printing  100  characters  per 
second,  draft,  and  16  char- 


acters per  second  in  Near 
Letter  Quality  mode,  the 
Spectrum  LX-90  features 
friction  and  tractor  feeds 
for  both  plain  paper  and 
continuous  form  computer 
paper.  This  makes  it  better 
for  business  applications. 
It  uses  a  Printer  Interface 
Cartridge  (PIC™)  to  assure 
maximum  compatibility 
with  your  computer. 


Epson  dot 
matrb:  printers 
have  very  graphic 
advantages.  Besides  the 
versatility  of drqft  and  Near 
I  Letter  Quality  and  ttie  corres- 
ponding speed  options,  they  j 
can  draw  some  very  con- 
vincvng  pictures, 
including  true 
circles. 


Recentlu  in  Martinez,  California,  two  cats  knocked 

an  Epson  printer  4  feet  onto  a  tilelconcrete.floor.  Although 

itdidnt  land  on  its  feet,  the  printer  is  still  running. 


Nc 


fOWTHilT 

YOU  CAN 

AFFORB 

AN  EPSON, 

WHAT ARE YOU 

WAITING 

FOR? 


Epson 

Spectnim 

LX-90 


For  more  details,  call 

(800)  421-5426  or  in 
California  (213)  539-9140. 


EPSON 


Number  One. 
And  built  like  it. 


Epsani£an'}!]siiTM:UradcntiLrk')rRi)MmCor7mraUf)n 

Applp.  Apple  lit- anil  .^pple  Heart- rrsbli-ivd  trademartM 

of A[q>le(V>mfniti?r. InrlBM. lUM  It" iivJ ]BM PCjr stf 

reffsiered  iradfmarksuf  Iniemaikmal  Business  ilachiiMw 

Cofpontjnn.  PIC  and  Specinimart  uademarits 

of  Ep^on  America.  Inc. 


ThE  Better  liTiER  Box 


Introducing  EasyPlex"  The  new, 
easy-to-use  electronic  mail  system 
from  CompuServe, 


Finally!  Electronic  Mail  that's  so  easy  to 
use  you  can  start  composing  and  sending 
messages  the  first  time  you  get  online. 

Designed  for  various  experience  levels, 
EasyPlex  has  a  menu  mode  with  simple, 
easy-to-follow  directions  for  beginners, 
and  it  lets  experienced  users  save  time  by 
working  in  the  prompt  or  command  modes. 
With  EasyPlex.  you  can  compose,  edit,  send, 
file,  and  take  advantage  of  sophisticated 


options  previously  available  only  with  more 
expensive  services. 

CompuServe's  EasyPlex  lets  friends  and 
relatives,  associations  and  club  members 
communicate  any  time  of  the  day  or  night. 
And  small  business  owners,  real  estate 
professionals,  insurance  agents,  lawyers, 
writers,  etc  can  communicate  quickly  and 
simply— either  interoffice  or  interstate 
"It's  Easy."  "Just  Plex  it !" 

Best  of  all,  EasyPlex  is  available  to  all 

CompuServe  subscribers.  And,  along  with 
EasyPlex,  you  get  hundreds  of  valuable  and 
entertaining  computing  options  Plus  the 
assurance  of  belonging  to  the  largest  fastest 


growing  computer  information  service  in 
the  world  and  the  premier  supplier  of 
business  information  to  FOFTTUNE  500 
companies. 

Start  communicating!  To  buy  a 
CompuServe  Subscription  Kit,  see  your 
nearest  com  puter  dealer.  To  receive  our 
informative  brochure  or  to  order  direct, 
call  or  write: 

CompuServe' 

Inlormation  Services.  RO.  Box  20212 

5000  Arlington  Centre  Blvd.,  Columbus.  Ohio  43220 

800-848-8199 

in  Ohio,  call  61 4-457-0802 
An  HSR  Btock  Company 
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Editors  Notes 


Last  month  we  mentioned  some 
apparent  communication  problems  re- 
garding access  to  the  new  Amiga  from 
Commodore.  We're  happy  to  report 
that  comments  in  our  editorial  became 
moot  before  they  reached  print.  Com- 
modore's new  senior  management 
team  moved  quickly  and  smoothly  to 
see  that  we,  along  with  other  maga- 
zines in  the  industry,  received  even- 
handed  treatment  in  access  to 
information. 

The  Amiga  is  an  important  prod- 
uct. We  see  a  significant,  lasting  change 
in  the  way  personal  computers  will  be 
used  and  programmed  and,  thus,  in  the 
ways  we  cover  computers.  With  the 
introduction  of  the  Amiga  (see  the  story 
on  page  16)  and  the  ST  from  Atari, 
consumer  computing  will  never  be  the 
same  again. 

Among  other  things,  BASIC  now 
faces  its  first  serious  challenge  as  the 
language  of  popular  computing.  When 
you  turn  on  these  new  computers,  you 
don't  see  the  familiar  BASIC  greeting 
"READY."  Instead,  you  see  a  Macintosh- 
like  "desktop"  screen  with  icons,  etc. 
This  manager  is  called  Intuition  on  the 
Amiga,  GEM  on  the  ST.  BASIC  is  only 
one  of  several  options,  several  lan- 
guages you  could  load  into  the  com- 
puter from  disk.  A  simple  command, 
however,  exits  this  environment  and 
lands  you  in  an  IBM  PC-like  Amiga- 
DOS,  said  to  be  quite  like  Unix,  an 
operating  system  first  developed  for 
large  minicomputers.  The  Atari  ST's 
TOS  wiU  be  siniilar.  Both  are  command- 
rich  systems,  nearly  languages  in 
themselves. 

COMPUTE!  expects  to  continue  to 
publish  the  majority  of  its  programs  in 
BASIC.  The  new  machines'  BASICs  are 
large  and  fast.  They  include  a  generous 
set  of  graphics  and  sound  instructions. 
Above  all,  everyone  who  buys  an  ST  or 
an  Amiga  will  have  BASIC.  That  lan- 
guage is  being  shipped  with,  though 
not  built  into,  these  computers. 

Interestingly,  most  commercial 
software  announced  so  far  for  the  ST 
and  Amiga  is  not  being  written  in  ma- 
chine language.  Instead,  it  is  being  writ- 
ten in  C,  a  language  popular  among 
professional  programmers  ^vhich  has  a 
reputation  for  portability  between  com- 
puters. Some  have  argued  that  this 
spells  the  end  of  assemblers,  the  end  of 
writing  machine  language  programs. 
We  do  not  find  that  argument 
compelling. 


The  argument  goes  like  this;  The 
new  machines  are  faster  (because  the 
microprocessor,  the  68000,  is  more  effi- 
cient) and  thus  maximizing  speed  of 
execution  by  using  machine  language  is 
no  longer  necessary.  Compiled  lan- 
guages like  C  run  sufficiently  quickly. 
Lotus  1-2-3  is  written  in  C.  Also,  some 
new  BASICS  and  operating  systems  are 
largely  C. 

The  other  factor  in  favor  of  ma- 
chine language,  its  conservation  of 
memory,  is  now  less  critical,  too.  Com- 
pilers can  use  up  computer  memory 
rapidly.  Amiga  BASIC,  written  mostly 
in  C,  is  about  96K  large;  Commodore  64 
BASIC,  written  entirely  in  machine  lan- 
guage, uses  up  only  8K.  Instead  of  hav- 
ing to  fit  everything  into  64K,  the 
maximum  memory  which  can  be  easily 
accessed  by  the  older  8-bit  chips,  the 
new  computers  can  access  megabytes 
of  memory.  Tecmar,  an  Ohio  company, 
is  developing  an  expansion  board  for 
the  Amiga  which  adds  up  to  two  mega- 
bytes of  memory.  Hence,  bulky,  com- 
piled programs  don't  cause  much  of  a 
problem.  There's  memory  to  spare. 
However,  even  though  the  Amiga  and 
ST  each  have  192K  of  ROM  space,  both 
machines'  operating  systems — written 
largely  in  C — have  to  be  supplied  on 
disk  ivith  early  models.  The  compiled  C 
is  too  big  to  be  built  into  ROM  until 
programmers  can  optimize  and  con- 
dense the  code. 

C  has  its  advantages,  but  one  fact  is 
overlooked:  Machine  language  is  the 
computer's  language.  All  other  lan- 
guages are  compromises,  less  direct 
ways  of  telling  the  computer  what  you 
want  it  to  do.  This  indirection  slows  the 
computer  down  for  many  of  the  same 
reasons  that  you  would  be  slowed 
down  in  a  foreign  country.  No  matter 
how  similar  the  two  languages,  from 
time  to  time  you  would  be  forced  to 
resort  to  hand  signals,  symbols,  even  to 
looking  things  up  in  a  dictionary.  Like- 
wise, a  compiled  programming  lan- 
guage results  in  a  more  or  less  indirect 
communication  with  the  computer. 
Even  the  best  compilers  produce  bulki- 
er and  less  efficient  programs  than  does 
pure  machine  language. 

Something  similar  to  the  current 
popularity  of  C  happened  when  home 
computers  were  first  introduced.  BASIC 
was  then  the  most  common  language 
for  commercial  programs.  Spread- 
sheets, word  processors,  and  games 
were  sold  which  were  entirely  BASIC. 


They  were  slow,  had  few  features,  and 
used  up  much  of  the  available  memory 
space. 

Now  that  there  is  a  transition  from 
64K  to  512K,  quadruple  the  processing 
speed,  and  far  better  graphics  and 
sound — most  any  good  program  is  go- 
ing to  be  impressive.  The  new  machines 
make  their  software  look  good  in  the 
same  way  that  calculators  made  the 
early  8K  Commodore  PET  look  good. 
It's  a  whole  new  level  of  power  and 
control.  But  the  shock  of  the  new 
doesn't  last.  Software  companies  will 
compete  along  the  classic  lines:  They 
will  all  try  to  offer  the  fastest  product 
with  the  most  features.  Once  again  we 
are  likely  to  see  a  migration  to  machine 
language  as  programmers  vie  with  each 
other  to  take  their  machines  to  the  limit. 

The  68000  is  not  a  new  chip,  but  it 
is  new  to  home  computers.  Introduced 
by  Motorola  in  1981,  it  cost  over  $200 
until  recently.  It  is  the  chip  in  the  Apple 
Macintosh,  and  sales  of  that  computer 
have  helped  drive  down  the  price  to  its 
current  $20,  making  it  affordable  as  the 
new  consumer  CPU.  How  does  the 
68000  differ  from  the  6502,  the  chip  in 
most  current  popular  computers  (Apple, 
Atari,  Commodore,  etc.)?  Essentially, 
things  like  multiplying  large  numbers 
are  easier  to  do,  fetching  and  storing  is 
faster  and  more  efficient,  what  took 
several  steps  to  accomplish  in  the  6502 
can  now  be  done  in  a  single  operation. 

Of  course,  we  won't  see  the  ulti- 
mate software  the  minute  the  new 
hardware  is  introduced.  It  will  take  time 
for  programmers  to  investigate  the  new 
territory.  But  judging  from  the  prelimi- 
nary software  we've  seen,  the  new 
computers  offer  stunning  opportunities 
for  creative  programming  and — what- 
ever languages  are  used — the  resulting 
software  will  take  us  far  beyond  what 
we've  experienced  on  today's  home 
computers.  We  plan  to  bring  you  some 
of  that  stunning  programming  in  the 
pages  of  COMPUTE!  in  the  coming  years. 


Editor  in  Chief 
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SUMMER  GAMES  li: 
EIGHT  NEW  Vim  TO  GO  FOR  THE  GOLD. 


F 


Sure  Summer  Games  was  great,  but 
why  stop  there?  Let  Summer  Games  I!  take 
you  even  farther  with  eight  new  events 
including  cycling,  fencing,  kayaking,  triple 
jump,  rowing,  high  jump,  javelin  and  even 
equestrian.  They  can  all  be  played  by 
up  to  eight  players  and  some,  like  cycling, 
rowing  and  fencing  challenge  you  with 
realistic  head-to-head  competition. 

First,  you  decide  which  of  the  18  different 
countries  you're  going  to  represent.  Then, 
in  true  Olympic  fashion,  you  will  need  the 
proper  strategy  and  mental  toughness, 
not  just  speed  and  agility  to  excel  in  each 


event.  It's  so  realistic,  there's  even  an 
opening  and  closing  ceremony  along  with 
medal  presentations  after  each  event. 

It's  not  too  eariy  to  get  ready  for  1988. 
With  the  right  diet,  proper  training  and 
hours  of  practice  you  just  might  make  it.  In 
the  meantime,  put  on  your  sweatsuit,  grab 
that  joystick  and  let  Summer  Games  U  gi  ve 
you  eight  new  ways  to  Go  For  The  Gold! 
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INTRODUCING  THE  FAST  UMU) 
CARTRIDGE  FROM  EPYX. 

You're  tired  of  waiting  forever  for  your  Commodore  64 
programs  to  load.  But  it's  no  use  glaring  at  your  disk 
drive.  Calling  it  names  won't  help,  either.  It  was  born 
slow  —  a  lumbering  hippo.  You  need  the  FAST  LOAD 
CARTRIDGE  from  EPYX.  FAST  LOAD  transforms 
your  Commodore  64  disk  drive  from  a  lumbering  hippo 
into  a  leaping  gazelle.  With  FAST  LOAD,  programs 
that  once  took  minutes  to  load  are  booted  up  in  a  matter 
of  seconds. 

FAST  LOAD  can  load,  save  and  copy  your  disks  five 
times  faster  than  normal  It  plugs  into  the  cartridge  port 


of  your  Commodore  64  and  goes  to  work  automatically, 
loading  your  disks  with  ease.  And  that's  only  the 
beginning.  You  can  copy  a  single  file,  copy  the  whole 
disk,  send  disk  commands,  and  even  list  directories 
without  erasing  programs  stored  in  memory. 

And  unlike  other  products,  the  FAST  LOAD 
CARTRIDGE  works  with  most  programs,  even  copy 
protected  ones,  including  the  most  popular  computer 
games. 

The  FAST  LOAD  CARTRIDGE  from  Epyx.  Easy 
to  insert,  easy  to  use  and  five  times  faster.  So  why 
waste  time  waiting  for  your  disks  to  load? 

Speed  them  up  with  FAST  LOAD! 


Epyx 
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Readers  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


//  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  comfutei  P.O.  Box  5^06, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questiotis. 


Relational  Operators 

I  recently  typed  in  the  TI-99/4A  game 
"Circus"  (COMPUTE!,  February  1984) 
and  noticed  the  following  statement  in 
line  50: 

SC=SC+(H=120)*-50+(H=112)*-7 
5+(H=104)*-100+((H=128)*(Ml= 
1)*250) 

How  does  this  statement  work? 

Dan  Schwarz 

Although  your  question  concerns  a  TI 
program,  the  answer  applies  to  BASIC 
programming  on  a  wide  variety  of  com- 
puters. The  complex  statement  that  has 
you  puzzled  calculates  the  game  score 
(variable  SC)  by  using  the  equal  sign  (=) 
as  a  relational  operator.  Though  its  syn- 
tax looks  odd,  it  efficiently  takes  the  place 
of  several  IF-THEN  statements. 

In  "Circus"  the  balloon  (variable  H) 
popped  by  the  clown  can  be  in  the  bottom 
row  (character  number  120),  in  the  middle 
row  (character  112),  or  the  top  row  (104). 
Character  128  signifies  the  bonus  balloon. 
A  bottom  row  balloon  scores  50  points,  the 
middle  row  scores  75,  the  top  roiv  is  worth 
100,  and  a  bonus  balloon  scores  250  points 
provided  its  color  is  yellow  (Ml  =  l;  see 
line  80  of  the  program). 

The  expression  (H=120)  doesn't 
change  the  value  ofH.  Instead,  it  performs 
a  logical  test  similar  to  IF.  When  H  equals 
120—ivhen  you  pop  a  bottom-row  bal- 
loon— this  expression  returns  a  value  of 
—  I.  Any  expression  that  evaluates  to  —1 
is  considered  to  be  true.  When  H  equals 
any  other  number,  the  computer  returns  0 
to  show  the  expression  is  false.  (TI,  Com- 
modore, and  IBM  PC/PCjr  computers 
evaluate  true  expressions  to  —I;  Apple, 
Atari,  and  Timex/Sinclair  computers  use 
1  rather  than  —1.) 

Say  that  the  clown  pops  a  balloon  in 
the  bottom  row.  Since  H  equals  120,  the 
expression  (H=120)  is  true  and  evaluates 
to  —1.  This  value  is  multiplied  by  —50  to 


add  50  to  the  score  (multiplying  two  nega- 
tive numbers  produces  a  positive  num- 
ber). Since  H=I20  is  true,  the  other 
expressions  (H=112,  H=104,  and 
H=128)  are  false,  so  the  multiplications 
yield  0  and  the  score  doesn't  change.  The 
remaining  expressions  in  the  example  in- 
crement the  score  when  you  pop  balloons 
in  the  middle  and  upper  rows  or  pop  the 
bonus  balloon  (character  128)  when  it's 
yellow.  Other  relational  operators  include 
<,  >,  AND,  OR,  and  NOT  (if  available  in 
your  dialect  of  BASIC).  String  expressions 
work  as  well  as  numeric  expressions,  and 
relational  operations  are  particularly  effi- 
cient when  combined  with  ON-GOTO  or 
ON-GOSUB  statements. 

Atari  Tape-To-Dlsk  Transfer 

When  1  bought  a  disk  drive  for  my  Atari 
system,  I  was  faced  with  retyping  all 
the  machine  language  programs  (like 
SpeedScript,  COMPUTE!,  May  1985)  1  had 
previously  saved  on  tape.  Instead,  I 
found  a  way  to  use  "Atari  MLX"  to  load 
a  machine  language  program  from  tape, 
and  then  either  save  it  as  a  binary  disk 
file  or  make  a  boot  disk.  To  make  a 
binary  file,  change  line  390  of  MLX  as 
follows: 

390  IF  N=-19  THEN  MEDIA=  ASC ( " 
D") :DTYPE=70!GOTO  720 

Change  line  390  as  follows  to  make  a 
boot  disk; 

390  IF  N=-19  THEN  MEDIA=  ASC(" 
D")tGOTO  720 

After  that's  done,  run  MLX  and  follow 
the  instructions,  loading  from  tape  and 
saving  to  disk  when  appropriate. 

David  L.  Pettite 

Thank  you  for  the  information.  Readers 
should  note  that  this  temporary  change  to 
line  390  is  only  for  converting  tape  files  to 
disk  files.  It  is  not  a  correction  to  MLX, 
and  should  not  be  permanently  incorpo- 
rated into  your  copy  of  Atari  MLX. 

64  Key  Beeper 

Is  there  a  program  for  the  Commodore 
64  that  will  cause  a  beep  when  a  key  is 
pressed? 

Jeffrey  Gurr 

The  following  program  adds  audible  feed- 


back to  the  keyboard  of  your  64,  as  found 
on  Atari  computers.  (Ironically,  owners  of 
Atari  400s  and  800s  frequently  write  us 
for  a  way  to  turn  off  the  built-in  keyboard 
beep.)  The  program  puts  a  short,  inter- 
rupt-driven  machine  language  routine  in 
an  unused  memory  area  (679-760),  acti- 
vates the  beep  routine,  then  erases  itself. 
Be  sure  to  save  a  copy  of  the  program 
before  running  it,  and  turn  up  the  volume 
on  your  TV  or  monitor.  This  routine  is 
designed  to  be  used  in  direct  mode  (while 
you're  typing  a  program,  etc.)  rather  than 
in  program  mode  (lohile  a  program  is 
running).  It  doesn't  interfere  with  most 
BASIC  operations,  but  any  program  that 
creates  other  sounds,  changes  the  hard- 
ware interrupt  vector,  or  alters  locations 
3-4  and  679-760  may  disrupt  the  beep  or 
cause  other  problems.  You  should  always 
disable  the  beep  (press  RUN/STOP- 
RESTORE)  before  running  other  pro- 
grams. Enter  SYS  679  to  turn  it  back  on. 

1  S=679!N=S 

2  READQ;IFQ=256THES4 

3  P0KEN,Q:N=N+liCK=CK+QiG0T02 

4  IFCK<>9233THEt5PRINT"ERROR    IN 

DATA": END 

5  SYS{S) iNEW 

6  DATA    120,169,206,141,20,3,16 
9,2,141,21,3 

7  DATA   162,0,138,157,0,212,232 
,224,25,203,248 

8  DATA   169,15,141,24,212,169,6 
7,141,5,212,169 

9  DATA   17,141,1,212,88,96,165, 
197,201,64,240 

10  DATA    30,197,3,208,6,165,4,2 
40,2,208,24 

11  DATA   169,32,141,4,212,169,3 
3,141,4,212,165 

12  DATA   197,133,3,169,1,133,4, 
208,4,169,0 

13  DATA   133,4,76,49,234,256 


Simpler  IBM  Unprotectlon 

On  CompuServe's  PC-SIG  disk  #184 
you  can  find  a  simpler  procedure  for 
unlocking  protected  IBM  BASIC  pro- 
grams (see  "Unlocking  IBM  BASIC  Pro- 
grams" by  Peter  Nicholson,  compute!, 
June  1985).  Written  by  Todd  Pollock, 
this  method  uses  BSAVE  and  BLOAD 
commands  to  restore  the  portion  of 
RAM  that  is  disabled  by  a  protected 
program.  First,  type  in  any  two-  or 
three-line  BASIC  program  such  as  this: 

10    PRINT    "HELLO" 
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Pjut  yourself  in  the  pilot's  seat  of  a  Piper  181  Cherokee  Archer  fdr  an  awe-inspiring  flight  over  realistic  scene 
'from  New  York  to  Los  Angeles.  High  speed  color-fitled  3D  graphics  will  give  you  a  beautiful  panoramic  vievj 
as  you  practice  takeoffs,  landings,  and  aerobatics.  Comptete  documentation  will  get  you  airborne  quickly  i 
even  if  you've  never  flown  before.  When  you  think  you're  ready,  you  can  play  the  World  War  I  Ace  aerial  battle 
game.  Flight  Simulator  II  features  include  ■  animated  color  3D  graphics  ■  day,  dusk,  and  night  flying  modes 
■  over  80  airports  in  four  scenery  areas:  New  York,  Chicago,  Los  Angeles,  Seattle,  with  additional  scenery 
areas  available  ■  user-variable  weather,  from  clear  blue  skies  to  grey  cloudy  conditions  ■  complete  flight 
Instrumentation  ■  VOR,  ILS,  ADF,  and  DME  radio  equipped  ■  navigation  facilities  and  course  plotting  ■  World 
War  I  Ace  aerial  battle  game  ■  complete  information  manual  and  flight  handbook. 


»ee  your  aeaier 

or  write  or  call  for  more  inforaiation.  For  direct  orders  enclose  $49.95  plus  S2.00 
for  shipping  ard  specify  UPS  or  (irat  class  mail  delivery.  American  Express, 
Dinar's  Club,  MasterCard,  and  Visa  acceptet). 

Order  Line:  800  /  637-4983 
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Oorpor^tion 

713  Edgebrook  Drive 
Champaign  IL  61820 

(217)  359-8482  Telex:  206995 


20   GOTO    10 
30    END 

Save  the  program  by  entering  this 

line:  BSAVE  "UNPRO.CIM",&H400 
,&H7F.  To  unprotect  a  protected  pro- 
gram, load  the  protected  program  into 
memory,  then  enter  this  line;  BLOAD 
"UNPRO.CIM",  I  suspect  that  Nichol- 
son's procedure  may  be  required  on 
Some  compatibles,  since  Pollock's  does 
not  simply  query  a  standard  location  for 
standard  information.  A  quick  test  on 
my  friend's  Sperry  PC-compatible 
showed  that  it  disables  the  BLOAD 
command  while  a  protected  program  is 
in  memory.  However,  Pollock's  proce- 
dure does  have  the  advantage  of  requir- 
ing much  less  typing. 

Guy  R.  Winters 

We  tested  this  method  on  the  PC  and  PCjr 
and  found  that  you  need  to  BSAVE  only 
one  byte  of  memory.  Type  i»  any  one-line 
program  such  as  10  END.  Then  enter  this 
command:  BSAVE"UN.PRO",U24,l.  The 
BSAVE  command  saves  one  byte  of  memo- 
ry at  location  1124  (&H464  hexadecimal). 
Now  load  a  protected  program  (one  that 
was  saved  with  SAVE"filename",P),  and 
load  the  one-byte  file  with  BLOAD'VN- 
.PRO".  On  the  PC/PCjr,  the  protection 
evaporates  and  you  can  list,  edit,  or  save 
the  program  as  usual.  Also,  PEEK  and 
POKE  are  reenabled  in  direct  mode. 

The  PC  and  PCjr  use  location  1124  as 
a  flag:  It  contains  0  when  an  unprotectea 
program  is  in  memory  and  254  after  you 
load  a  protected  program.  The  BSAVE 
shown  above  saves  location  1124  at  a  time 
when  we  know  the  flag  is  set  to  0.  The 
BLOAD  simply  loads  the  0  back  into  loca- 
tion 1124,  resetting  the  flag  to  signify  no 
protection.  As  you  found  by  testing  your 
friend's  Sperry,  "compatibility"  is  a  rela- 
tive concept.  Evidently  one  of  the  Sperry 
designers  knew  or  anticipated  this  trick, 
and  prevented  it  by  disabling  BLOAD. 

Although  program  protection  dis- 
ables POKE  and  PEEK  in  immediate 
mode,  both  commands  are  still  legal  in 
program  mode  (at  least  on  the  PC/PCjr). 
Thus,  a  protected  program  can  unprotect 
itself  while  running  (for  instance,  if  you 
enter  a  password)  and  an  unprotected  pro- 
gram can  protect  itself  as  well.  The  PCs 
we  tested  put  a  254  in  location  1124  to 
indicate  protection,  but  in  fact  any  non- 
zero value  seems  to  set  the  protection  flag: 
Editing,  listing.  PEEKing,  and  POKEin^ 
are  ruled  out,  and  you  can  resave  the 
program  only  in  protected  format. 

Disabling  Apple's  Break  Key 

According  to  your  answer  to  Alex 
Tarlecky's  letter  in  December  1984,  the 
RESET  key  can  be  disabled  on  the 
Apple  lie  with  the  command  POKE 
1012,PEEK(1012)  AND  10.  But  is  there 
a  way  to  also  disable  the  CONTROL-C 


function  to  keep  people  from  breaking 
out  of  my  programs? 

Mike  Sanders 

Yes,  there  is.  After  Applesoft  BASIC  exe- 
cutes a  program  statement,  it  checks  for 
any  errors  that  might  have  occurred.  At 
the  same  time,  it  checks  to  see  if  CTRL-C 
was  pressed.  If  so,  Applesoft  responds  as  it 
does  when  it  encounters  a  syntax  error  or 
illegal  quantify  error.  Normally,  it  stops 
the  program  and  displays  an  appropriate 
error  message  (BREAK  IN  line#}. 

The  secret  to  trapping  CTRL-C  is  an 
instruction  that  changes  the  way  Apple- 
soft handles  such  errors— the  ONERR 
statement.  For  instance,  once  the  com- 
puter executes  a  statement  such  as 
ONERR  GOTO  1000,  it  responds  to  any 
error— including  the  CTRL-C  function — 
by  transferring  control  to  line  1000  (or  any 
other  line  you  specify  with  ONERR). 
Make  sure,  however,  that  the  line  speci- 
fied in  the  ONERR  statement  actually 
exists  in  your  program.  Otherwise,  Apple- 
soft searches  for  an  undefined  line  when 
an  error  happens,  causing  another  error. 
The  result  is  an  endless  loop  and  a  locked- 
up  computer. 

You  should  put  an  error-handling 
routine  starting  at  the  line  number  re- 
ferred to  by  ONERR.  This  routine  should 
PEEK  location  222,  which  contains  an 
error  code.  If  this  location  contains  255, 
then  CTRL-C  was  pressed.  The  best  way 
to  deal  with  CTRL-C  is  to  have  your  error 
routine  GOTO  the  program's  main  menu 
or  some  other  predictable  location,  so  that 
CTRL-C  stilt  causes  a  break  but  doesn't 
stop  the  program. 

IfPEEK(222)  isn't  255,  then  CTRL-C 
wasn't  pressed — an  actual  error  occurred. 
This  could  be  a  disk  error  (wrong  disk  in 
the  drive,  no  disk,  disk  full,  etc.)  or  an 
error  in  your  program.  It  is  usually  easier 
to  let  Applesoft  handle  the  errors  that  you 
aren't  expecting.  You  can  do  this  by 
POKEing  memory  location  216  with  0  to 
cancel  the  ONERR  trap.  Then  use  the 
Applesoft  RESUME  instruction,  which  re- 
executes  the  statement  that  caused  the 
error  in  the  first  place.  Since  the  instruc- 
tion didn't  finish  the  first  time,  you  should 
get  the  same  error,  but  this  time  the  pro- 
gram halts  with  an  appropriate  error 
message. 

Tl  Supplies 

Just  after  1  purchased  a  TI-99/4A  com- 
puter, the  company  went  out  of  busi- 
ness. Does  this  mean  1  won't  be  able  to 
purchase  anything  for  my  computer?  I 
would  like  to  purchase  Extended 
BASIC,  a  printer,  and  other  peripherals. 
Kathy  Armstrong 

Texas  Instruments  is  still  very  much  in 
business;  it  has  simply  stopped  manufac- 
turing home  computers  such  as  the  TI- 
99/4A.  Fortunately,  TI-99/4A  products 


are  still  available.  The  following  firms 
carry  software,  hardware,  and  peripherals 
(this  is  the  most  complete  and  accurate  list 
we  were  able  to  compile  at  time  of 
publication): 

Triton  Products 

P.O.  Box  8123 

San  Francisco,  CA  94128 

1-800-227-6900 

Ufusource  Electronics,  Inc. 

P.O.  Box  64240 

Lubbock,  TX  79464 

1-800-858-4380 

MSW  Computers  &  Electronics 

22  East  Tioga  Street 

Tunkahannock,  PA  18657 

1-800-233-3266 

Tenex  Computer  Express 

P.O.  Box  6578 

South  Bend,  IN  46660 

219-259-7051 

Reader  Cynthia  Becker  informs  us 
that  hardware  and  software  are  also  avail- 
able through  the  TI-99/4A  Natiortal 
Assistance  Group.  After  paying  a  $10 
membership  fee,  you  are  entitled  to  pur- 
chase TI  products  from  this  organization 
and  receive  its  newsletter  as  well: 

TI-99/4A  National  Assistance  Group 
P.O.  Box  290812 
Ft.  Lauderdale,  Florida  33329 
(305)  583-0467 


Commodore  16  Conversions 

I  have  found  that  programs  written  for 
the  VlC-20  Super  Expander  will  run  on 
the  Commodore  16  as  well  if  you  add 
the  BASIC  3.5  statement  SCALE 
1  =  1023*1023  to  the  beginning  of  the 
program.  The  16  uses  different  tokens 
for  graphics  keywords  like  DRAW, 
POINT,  and  so  on.  But  the  programs 
will  load  without  any  problem  from 
disk  or  tape.  After  you  load  the  pro- 
gram, edit  the  lines  that  contain  those 
keywords  and  save  it  again.  It  should 
run  just  fine. 

John  Elliot 

Thanks  for  the  information. 
Trapping  IBM's  Break  Key 

I  own  an  IBM  PC  and  have  been  trying 
to  trap  the  Ctrl-Brk  keys.  I  have  looked 
in  a  tremendous  number  of  books,  but 
still  couldn't  find  anything  about  it.  I 
haven't  been  able  to  scan  the  keyboard 
for  the  information  I  need.  How  can  I 
trap  those  keys? 

Patrick  McGarry 

Since  many  readers  have  asked  this  ques- 
tion, we'll  shcnv  you  two  techniques  that 
work  luith  BAS/C4  or  Cartridge  BASIC  on 
either  the  PC  or  PCjr.  The  following  pro- 
gram traps  both  Ctrl-Break  (break)  and 
Ctrl-Alt-Del  (reboot). 
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CLOSe  GNCOUNTERS 
OF  THG  FANTASY  KIND 


QUESTROn?  A  role-playing  game  so  spellbinding,  it  suspends  reality  and  conjures  up 
an  enchanted  world  whose  only  hope  against  the  forces  of  evil  is  you. 

GEMSTOME  WARRIOR?  A  lightning- fast  action  strategy  game  that  will  leave  you  breathless 
with  excitement  as  it  talces  you  through  the  labyrinths  of  the  Netherworld  on  a  noble  quest. 

Open  them  up  and  step  through  the  gateway  to  your  fantasies  come  true. 
At  your  local  computer/software  or  game  store  today. 


QUESTRON"  is  available  on  48R  dlshctte  for  AFPLEMI 
Willi  Applesoft  ROM.  Apple  II+,  lie,  and  lie  ($49.95). 
On  40K  diskette  for  ATARI-  home  computers  ($49.95). 
On  64R  disi^ette  for  COMMODORE  64"  ($39.95). 


^1 


GEH5TOME  WARRIOR"  is  araflable  on  48K  diskette 

for  APPLE -11  with  Applesoft  ROM,  Apple  II+.  lie, 

and  lie  ($34.95). 

Also  on  64K  diskette  for  COMMODORE  64'  ($34.95). 


©1985  by   STRATEGIC  SIMULATIONS,   INC.   AII  rights  reserved. 


If  there  are  no  convenient  stores  near  you,  VISA  6(  M/C  holders 
can  order  direct  by  calling  800-227-1617.  ext.  355  (toll  free).  In 
California,  800-772-3545,  exL  335.  Ftease  specify  computer  format 
and  add  $2.00  for  shipping  and  handling. 


To  order  by  mail,  send  your  check  to:  STRATEGIC  5IMUIJ\Tlorrs  IMC, 
883  Sticrlln  Road,  Bldg.  A- 200,  Mountain  View.  CA  94043.  (California 
residents,  add  7%  sales  tax.)  All  our  games  carry  a  '14- day  satisfaction 
or  your  money  bacW  guarantee. 


WRITE  FOR  A  FREE  COLOR  CATALOG  OF  ALL  OUR  GAMES. 

APPLE,  ATARI  and  COMMOEX>RE  64  ate  tradcmaihs  of  Apple  Computer.  Inc..  Alari,  Inc.  and  Commodore  t^lcclronics,  Ltd_  rcspcdivEly. 


10   CLB; PRINT    "Try   to   use    Brea 

k    car    Ctrl-Alt-Del" 
20   B«=CHR«(4)+CHR*(70>:C»''CHR 

•(12)+CHR«<83) 
30    KEY    15,B*:KEY    (15)     ON! ON    K 

EY  (15)  SDSUB  B0 
40  KEY  16,C»sKEY  (16)  ON! ON  K 

EY  (16)  BOSUB  90 
50  FOR  J=l  TO  9999: NEXT: PRINT 
'■Br««k  «t  Ctrl-Alt-Del  Hor 

k  now" 
60  KEY  (15)  OFF: KEY  (16)  OFF 
70  GOTO  70 
80  PRINT  "Break  has  no  effect 

right  now.": RETURN 
90  PRINT  "Rebooting  is  a  very 
bad  idea. "i RETURN 

Once  the  key  trap  is  set  (lines  20-40 
above),  the  system  checks  for  a  trap  be- 
tween every  statement  of  the  main  pro- 
gram. When  the  right  keys  are  pressed, 
execution  diverts  immediately  to  the  trap- 
ping subroutine,  no  matter  what  the  main 
program  is  doing  at  the  time.  Since  the 
trap  can  be  sprung  between  any  two  state- 
ments in  the  program,  strange  results  may 
occur  if  you  don't  anticipate  the  possible 
diversion.  Of  course,  the  trapping  subrou- 
tine doesn't  have  to  print  a  message  (or  do 
anything  else  except  end  with  RETURN). 
You  can  also  disable  Break  by  changing 
the  computer's  break  interrupt  vector  at 
locations  108-112  (&H6C-£fH6F),  as 
shown  here: 


10  DEF  SES=0sFOR  J-0  TO  3: 
) -PEEK (109+ J) iNEXT 


A(J 


20  POKE  10B,64lPOKE  109,liPaK 

E  110, 112iPaKE  111,0 
30  PRINT  "Try  to  use  Ctrl-Brk 

(PC)  or  Fn-Brk  (PCjr) 
40  FDR  J=l  TO  9999lNEXTs PRINT 

"Brk  key  Marks  again" 
50  FOR  iJ=0  TO  3: POKE  10a+J,A( 

J) I  NEXT 
60  BOTO  60 

This  program  diverts  the  system's 
normal  break  routine  to  a  do-nothing 
IRET  (return)  instruction  in  ROM  (Read 
Only  Memory).  Don't  forget  to  restore  the 
normal  vector  when  the  program  ends 
(line  50).  These  examples  are  drawn  from 
Russ  Davies'  Mapping  the  IBM  PC  and 
PCjr  (published  by^  COMPUTE!  Books), 
which  contains  additional  information  on 
keyboard  programming  from  DOS  and 
machine  language. 

Commodore  ML  Addresses 

I  own  a  Commodore  64.  How  can  I  find 
the  beginning  and  ending  addresses  of 
a  machine  language  program  stored  on 
disk? 

Eric  Adams 

The  followitig  program  does  the  job  on  any 
Commodore  computer  ivith  a  disk  drive 
(except  the  128  in  CP/M  mode).  The  first 
two  bytes  of  a  disk  program  file  contain 
the  load  address  in  low  byte/high  byte 
format.  This  program  finds  the  beginning, 
then  reads  to  the  end  of  the  file.  The  end 


address  equals  the  start  address  plus  the 
number  of  bytes  read.  (Of  course,  a  disk 
data,  file — which  holds  data  rather  than  a 
program — has  no  load  address.) 

1  INPUT"FILENAME"jF$!A?""0!"+F 
5+",P,R"tOPEN  2, 8, 2, AS 

2  GET#2,A5«GOSUB  5 iL=AtGET#2 ,A 
?iGOSUB  5!SA=L+256*AjPRINT"S 
TART";SA 

3  GET#2,A9:IF  ST-0  THEN  SA=SA+ 
1  I GOTO  3 

4  PRINT"END"fSAiCLOSE  2iEND 

5  IF  A$"""  THEN  A5=CHR?(0) 

6  A-ASC { A5 ) J  RETURN 

Tape  users  can  find  beginning  and 
ending  addresses  with  only  two  program 
lines.  The  following  routine  runs  as  listed 
on  the  Commodore  64,  VIC-20,  and  PET. 
Plus/4  and  16  users  should  subtract  10 
from  the  four  addresses  in  line  2  (replace 
829  with  819,  830  with  820,  and  so  on). 
Commodore  128  users  (in  128  mode) 
should  replace  the  same  four  addresses 
with  2817,  2818,  2819,  and  2820.  The 
header  data  stored  at  the  beginning  of  a 
tape  file  contains  the  program's  starting 
and  ending  addresses.  The  method  shown 
here  simply  OPENs  the  file  to  read  the 
header  into  the  tape  buffer,  then  PEEKs 
the  addresses  from  the  buffer. 

1  INPUT"FILEKAME",-F?:OPEN  2,1, 
0, AS: CLOSE  2 

2  PRINT"START" jPEEK(829)+256*P 
EEK(830),-CHRS(13)  ;  "END";PEEK 
(831)+256*PEEK(832)        @ 


CompuServe  Helps  You 
Get  The  Most  From  Any  Computer. 


Now  CompuServe  brings  you: 


'  Round-the-clock  shopping 
I  Interaclive  games  and  trivia 
'  Electronic  airline  ticket 

reservations 
'  Over  800  other  practical  and 

fascinating  options 


■  Popular  CB  simulator 

■  Easy  new  EiisyPlex™ 
ELECTRONIC  MAIL 

■  Regularly  updated  investment 
statistics 

■  New  executive  newswire 
clipping  service 

To  access  CompuServe,  you  need  a  CompuServe  Information  Ser- 
vices Subscription  Kit.  a  computer,  a  modem  and,  possibly,  easy-to-use 
communications  software. 

I  Yt>i!  Send  me  my  Compu.Serve  Subscription  Kltl  I 

With  it  ITJ  lecshie  a  $25.00  usage  credit;  a  complde  U5er%  Guide;  my  own  exdustve  user  ID 
number  and  preliminary  password;  and  an  introductory  subscription  to  >\jur  monlhl)'  news-    1 
iiiai!arine(MJNETOIW.  I 

Here^  my  order  (or ComjitiServe  Information  Services  SulMcription  Kit 

D  payment  endosed  □  MasterCard  D  VISA '^*'^"  *^^^^  !.^-^ 

MasteiCard/VISA  # Uiwh»rediirotiio 

Shipping     $2.50 

TOTAL 


Intertiank  #_ 


Exp.  Date- 


Signature  as  I!  appears 
on  credit  card ! 


PleiUK  XN^  checks  pwnble  to  CompuServe  Information  Services,  Inc 


Soul  Kit  tu 

r^aiDe 


f  3-4  >«elcs  tor  deliueiy 


city .sate Zif 

MAILTO:     ComptiServe  Inforntation  Services,  [nc,  ConsumerScrvice  Ordering 

Dcpartmenl.  fO.  Ikx  W77,  Columbus.  OH  43260 
TO  ORDER  COMPUSERVE  DIRECT  or  lo  receive  more  iniomialion,  cai!  800.»18-8i99 
(in  Ohin.  614-(57-MQ2). 

CompuServe 


Program  Your  Own  EPROMS 


VIC  20 
C64 


$99.50 


C 


0 

a 


PLUGS  INTO  USER  PORT. 
NOTHING  ELSE  NEEDED. 
EASY  TO  USE.  VERSATILE. 

•  Read  or  Program.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD, 

SAVE,  GET  INPUT,  PRINT  CMD, 

OPEN,  CLOSE— EPROM  FILES! 

Our  software  lets  you  use  familiar  BASIC  commands  to 

create,  modify,  scratch  files  on  readily  available  EPROM 

chips.  Adds  a  new  dimension  to  your  computing  capability. 

Works  with  most  ML  Monitors  too. 

•  Make  Auto-Starl  Cartridges  of  your  programs. 

•  The  promenade"  CI  gives  you  4  programming  vollagec, 
2  EPROM  supply  voltages,  3  intelligent  programming 
algorithms,  15  bit  chip  addressing,  3  LED's  and  NO 
switches.  Your  computer  controls  everything  from  software! 
Textool  socket.  Anti-static  aluminum  housing. 

•  EPROMS,  cartridge  PC  boards,  etc.  at  extra  charge. 

•  Some  EPROM  types  you  can  use  with  the  promenade" 

2758  2532  462732?  27126  5133  XZBieA' 

2St6  2732  2584  27256  5t43  52813' 

27t6  27C32  2764  68764  2815'  4a016P- 

27Ct6  273ZA  27C84  68766  2815- 

Call  Toll  Free:  800-421-7731 
In  California:  800-421-7748 
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I  ]  JASON-RANHEIM 

580  Parrott  St.,  San  Jose,  CA  951 12 
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COMPUTB's  Reference  Guide 
to  Commodore  64  Graphics. 
John  Heilborn,  Si  2.95 
A  complete  tutorial  on  creat- 
ing graphics  displays,  pictures, 
and  animation  on  the  Com- 
modore 64. 


COMPUTEIS  First  Boole  of  Com- 
modore 64  Sound  and  Grapt)- 
/cs,  Edited.  $12.95 
Clear,  useful  explanations  of 
the  64's  sound  and  grophics 
capabilities  including  tutorials 
and  example  programs. 


COMPUTEi's  Beginner's  Guide 
to  Commodore  64  Sound,  John 
Heilborn,  $12.95 
Complete  descriptions  and  nu- 
merous examples  show  you 
how  to  program  sound  ond 
music  on  the  64. 


COMPUTE!  Books  offers  you  three  fascinating,  informative  books  on 
sound  and  grapiiics  for  your  COMMODORE  64  at  a  special  savings. 

Buy  all  three  books  for  only  $29.00.       \^^^e 
That's  25  percent  off  the  retail  price!         ^^c^ 

These  books  give  you  up-to-date,  easy-to-understond  tutorials,  prograrris,  and  exam- 
pies  to  inelp  you  maximize  tlie  sound  and  graphics  features  on  your  Commodore  64. 
Order  today  to  receive  aii  three  books  for  only  $29.00.  This  offer  expires  October  1 0, 
1985. 

Order  directly  from  COMPUTEJ  Books  by  mailing  the  attached  form  with  your  payment  to  COMPUTE! 
Books,  P.O.  Box  5058,  Greensboro,  NC  27403.  For  the  fastest  service,  call  toll-free  800-334-0868  (in  NC  calf 
919-275-9809). 


Order  Form 

Please  send  me: 

COI\APUTB.'s  Beginner's  Guide  to  Commodore 

64  Sound  (54-X),  S 1 2 ,95  

COIvtPUTEI's  First  Boole  of  Commodore  64 

Sound  and  Grapttics  (21-3),  $1 2.95  

COMPUTEi's  f^eference  Guide  to  Commodore 

64  Graphics  (29-9) .  S 1 2.95  

SPECIAL  SAVINGS— ALL  THREE  BOOKS  FOR 

$29.00  

Subtotal  

NC  residents  add  4.5%  tax     

Shipping  charges'  

'(S2.00  per  book  tn  U.S.  ond  surface  mal  outside  U.S.  S5.00  airmail  per  tsook) 

Total  paid  


ALL  ORDERS  MUST  BE  PREPAID  IN  U.S.  FUNDS 

O  Payment  enclosed  (check  or  money  order) 

D  Charge    D  MasterCard    D  Visa     ClAmerican  Express 

Account  No.        - Exp.  Date 


CRequlreci) 


Signotufs . 


Address  . 


City. 


-Stats. 


Plsose  allow  4-6  weeks  tot  deliuery 


Z.p 


7691171 


COMPUTE!  Books  are  available  in  the  U.K.,  Europe,  the  Middle  East,  and 
Africa  from  Holt  Saunders,  Ltd..  1  St.  Anne's  Rood,  Eastbourne,  East 
Sussex  BN21  3UN,  England. 


1 


/ 


16    COMPUTEI     September  1985 


The 


AMIGA: 

An  In-Depth  Review^ 


Tom  R,  Halfhill,  Editor 

Three  years  in  the  making,  Commodore's  new 
Amiga  personal  computer  was  finally  introduced 
at  a  lavish  media  event  in  New  York  this  summer. 
Commodore  says  the  new  machine  should  be 
available  by  the  end  of  August.  This  report  was 
compiled  from  sessions  with  the  Amiga  prior  to 
its  release. 


Commodore's  Amiga  is 
much  more  than  just  an- 
other new  computer.  It's  a 
pivotal  machine  that  may  well  shat- 
ter the  traditional  boundaries  and 
prejudices  which  for  years  have  di- 
vided the  microcomputer  market- 
place. It  defies  classification  as 
simply  a  home  computer,  game 
computer,  business  computer,  or 
hacker's  computer.  In  fact,  the  Ami- 
ga's power,  versatility,  and  ease  of 
use  may  qualify  it  as  the  first  true 
personal  computer. 

The  Amiga  is  not  a  me-too 
clone,  or  a  cautious  step  sideways, 
or  an  incremental  step  forward.  It's 


a  genuine  leap  to  a  new  generation 
of  advanced  personal  computers. 
The  Amiga  will  be  the  yardstick  by 
which  all  other  new  computers 
over  the  next  few  years  will  be 
measured. 

What  sets  the  Amiga  apart  is 
that  no  other  computer  on  the  mar- 
ket can  do  so  many  things  so  well. 
To  match  its  power  as  a  business 
computer,  you'd  have  to  go  all  the 
way  to  a  $4,000  IBM  AT  or  even  a 
minicomputer;  to  surpass  its  graph- 
ics and  animation  capabilities, 
you'd  have  to  invest  in  a  $10,000 
dedicated  graphics  terminal;  to  sur- 
pass its  sound  and  music  features, 
you'd  have  to  buy  a  music  synthe- 


sizer. The  Amiga  is  that  rare  ex- 
ample of  a  general-purpose 
machine  that  excels  at  specialized 
applications. 

This  versatility  transcends  the 
traditional  computer  categories  tak- 
en for  granted  over  the  years.  For 
example,  although  it's  certainly 
possible  to  use  a  machine  such  as  a 
Commodore  64  as  a  business  com- 
puter, or  a  machine  such  as  an  IBM 
PC  as  a  home  computer,  some  com- 
promises are  usually  inevitable.  But 
the  Amiga  should  prove  to  be 
equally  suitable  for  the  most  de- 
manding business  people,  home 
users,  programmers,  educators, 
children,  video  artists,  and  elec- 
tronic musicians.  In  addition,  it's 
easy  enough  for  a  beginner  to  learn 
quickly,  yet  deep  enough  to  fasci- 
nate the  most  impassioned  late- 
night  hacker. 

Commodore,  too,  senses  that  it 
has  a  new  kind  of  computer  on  its 
hands.  The  company  is  going  out  of 
its  way  to  avoid  calling  the  Amiga  a 
business  computer  or  a  home  com- 
puter. Furthermore,  Commodore  is 
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A  message  from  a  leading  software  publisher. 

Why  Electronic  Arts 


"The  Amiga  will  revolurioniie 
the  home  computer  industry.  It's 
the  first  home  machine  that  has 
everythtng  you  want  and  need 
for  all  the  tmajor  uses  of  a  home 
computer,  including  entertainment, 
education  and  ptoductivity.  The 
software  we're  developing  for  the 
Amiga  will  blow  your  socks  off  We 
think  the  Amiga,  with  its  incom- 
parable power,  sound  and  graphics, 
will  give  Electronic  Arts  and  the 
entire  industry  a  very  bright  future" 

Tftp  Hawkins 

President.  Elccnonic  Arts 


IS  Committed  to  the  Amiga. 


In  our  first  two  years,  Bectronic  Arts  has  emerged  as  a  leader  of 
the  home  software  business.  We  have  won  the  most  product  quality 
.  awards— over  60.  We  have  placed  the  most  Billboard  Top  20 
tides— 12.  We  have  also  been  consistently  profitable  in  an  industry 
beset  by  losses  and  disappointments. 

Why,  then,  is  Electronic  Arts  banking  its  hard  won  gains  on  an 
unproven  new  computer  like  the  Amiga? 

The  Vision  of  Electronic  Arts. 

We  believe  that  one  day  soon  the  home  computer  wiU  be  as  important 

as  radio,  stereo  and  television  are  today. 

These  electronic  marvels  are  significant  because  they  bring  faraway 
places  and  experiences  right  into  your  home.  Today,  from  your  living 
room  you  can  watch  a  championship  basketball  game,  see  Christopher 
Columbus  sail  to  the  New  World,  or  watch  a  futuristic  spaceship 
battle. 

The  computer  promises  to  let  you  do  much  more.  Because  it  is 
interactive  you  get  to  participate.  For  example,  you  can  play  in  that 
basketball  game  instead  of  just  watching.  You  can  actually  be  Christopher 
Columbus  and  feel  firsthand  what  he  felt  when  he  sighted  the  New 
World.  And  you  can  step  inside  the  cockpit  of  your  own  spaceship. 

Bur  so  far,  the  computer's  promise  has  been  hard  to  see.  Software 


has  been  severely  limited  by  the  abstract,  blocky  shapes  and  rinky- 
dink  sound  reproduction  of  most  home  computers.  Only  a  handful 
of  pioneers  have  been  able  to  appreciate  the  possibilities.  But  then, 
popular  opitiion  once  held  that  television  was  only  useful  for 
civil  defense  communications, 

A  Promise  of  Artistry. 

The  Amiga  is  advancing  our  medium  on  all  fronts.  For  the  first  rime, 
a  personal  computer  is  providing  the  visual  and  aural  quality  our 
sophisticated  eyes  and  ears  demand.  Compared  to  the  Amiga,  using 
some  other  home  computers  is  like  watching  black  and  white  television 
with  the  sound  turned  off. 

The  first  Amiga  software  products  from  Electronic  Arts  are  near 
completion.  We  suspect  you'll  be  hearing  a  lot  about  them.  Some 
of  them  are  games  like  you've  never  seen  before,  that  get  more  out 
of  a  computer  than  other  games  ever  have.  Others  are  harder  to 
categorize,  and  we  like  that. 

For  the  first  time,  software  developers 
have  the  tools  they  need  to  fulfil]  the 
promise  of  home  computing, 

Two  years  ago,  we  said,  "We  See 
Farther"  Now  fiarther  is  here. 


ELECTRONIC  ARTS' 


Dr  J  and  L.arry  Bird  Go  One-On-One 
The  number  ijne  software  sports  game 
of  ail  time-  Shtjo:  as  accurately  as  Liny 

Bird,  sUm  Jynt  lilic  tKc  Dtictor.  while 

you're  cheered  on  by  the  vicloiy  chants 

of  llie  Ritstnn  Gnrden  crdikii 


Skyfcix"* 

Get  in  the  spaceship  and  fly  Out  >'Our 

window  ot  OTi  your  radat  scteen  >cu 

have  but  jplit-seconds  to  appreciate  the 

fierce  beauty  of  enemy  jets  ai^  (ank$. 


Seven  Cities  of  Gold"* 
Be  ChristQi^cr  Columbus  and  discover 

the  New  \Vbrld,  Learn  history  and 
geogtaphy.  tir  get^etate  youf  own  tatviom 

new  worlds  to  explotc. 


A  re  Hon 

A  new  kind  of  cotnputeriied  board  gaine. 

jile  chess  w^ith  wizards  and  dragons  for 

pieces.  Blit  when  one  lands  on  .mother, 

they  have  to  fiRht  a  white-knucltled 

action  battle 


Deluxe  Video  Conjitruction  Set™ 

Be  your  own  vuieo  director  for  bitsiness 

prescntatifi<^5  tjt  just  fot  fun.  Set  up 

special  effects,  animated  comptjicr 

grajiiics,  sound  effects  Htkl  titles  -  even 

record  them  to  vidcLtlape  for  use 

with  a  VCR. 


Arctidbx"' 

You  cotnmand  the  advanced  and  deadly 
tank  of  the  future  -  iIm:  Atcticfox.  A 

first  pctsoi^  lank  cotnhat  f^une  with  all 

the  stunriny  graphics  and  souivj  of  the 

best  3D  simulations. 


Return  to  Atlantis'" 

Play  Indiana  Coustcau,  oceanic  heto,  in 

thb  three  dimcrisitxul  stmulailon  ttikler 

the  seven  seas. 


^J^fS"" 


^"W't 


Marble  Madness^ 
Fqt  the  {irsi  time,  rhe  home  versiDn  of 

a  coin'Op  ..irciitir  ^n\c  ii  just  ss  good 

as  the  original.  Samt^  graphics.  Same 

sound.  And  you  on  pky  it  in  your 

hachtobe. 


Rjr  details  aboul  ivailability  s«:  your  Amxgn  snii\i%TC  dealer  or  call  us  at  {4l5)  572-ARTS   For  »  prfxJutr  caialog  itnd  $  50  and  i  atamped.  self-addicssrd  cnvrlupr  iro:  Elwiroiiic  Ata.  Amiga  Catalog  OfitL  2755  Campus 
Dnve.  S.V)  MatK*.  CA  '9440^  Amisa  tl  .l  Tradcmarfe  of  Commotfarc  Bustncvs  MacKirwn   Sltyfrns,  Scvrn  Ciiwrs  a(  Gold.  Delude  Vi(Jeo  CofiitlUClion  Set,  Aicricfon.  Return  1l>  AlLmtia  and  Etetlroniir  Aru  art  rtadetrurks 
of  EJectTcinic  Arts   MaiMc  MjdtKM  w  i  cradcmack  nf  Atari  Gamei.  InC- 


High-resolution  graphics  on  the  Amiga  are  startlingly  close  to  broadcast- 
quality  TV  pictures.  This  image  of  a  mandrill  was  digitized  directly  from  a 
photograph  and  reproduced  on  the  Amiga's  640  X  400-pixel  screen. 


trying  to  disassociate  the  Amiga 
from  its  earlier  line.  The  label  on 
the  computer,  peripherals,  and 
company-branded  software  says 
"Amiga,"  not  "Commodore";  and 
one  Commodore  executive  has 
asked  writers  to  refer  to  the  com- 
puter as  the  "Amiga  from  Commo- 
dore" rather  than  the  "Commodore 
Amiga."  Apparently,  Commodore 
doesn't  want  potential  buyers  to 
prejudge  the  Amiga  by  Commo- 
dore's previous  products.  Although 
the  best-selling  VIC-20  and  Com- 
modore 64  have  earned  well- 
deserved  reputations  as  powerful 
computers  for  the  price,  they  are 
dismissed  by  some  as  "game  com- 
puters" or  "toy  computers."  But 
now  there's  an  under-$l,500  per- 
sonal computer  which  can  comfort- 
ably  outperform  much  more 
expensive  business  computers  as 
well  as  the  best  arcade  machines. 
More  than  old  technology  may 
be  rendered  obsolete  by  computers 
like  the  Amiga.  The  new  generation 
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may   also   change   a   lot   of   old- 
fashioned  thinking. 

Here's  a  quick  review  of  the  Amiga's 
major  features: 

•  Motorola  68000  chip  for  the 
central  processing  unit.  This  16/32- 
bit  microprocessor  is  also  found  in 
the  Apple  Macintosh  and  Atari  ST 
series. 

•  Three  special  integrated  chips 
nicknamed  Portia,  Daphne,  and 
Agnes.  Portia  handles  sound  and 
input/output;  Daphne  handles  the 
video;  Agnes  controls  memory  ac- 
cess and  also  contains  two  special 
devices,  blitter  and  copper  (short 
for  coprocessor),  which  work  to- 
gether to  produce  stunning  anima- 
tion and  graphics. 

•  256K  of  Random  Access 
Memory  (RAM)  standard.  A  clip-on 
memory  board  that  hides  behind  a 
plastic  cover  on  the  front  of  the 
system  unit  adds  another  256K;  fur- 
ther expansion  up  to  six  megabytes 
(6,1 44K)   is  possible   by   adding 


boards  onto  the  side  expansion  bus 
(see  below). 

•  192K  of  Read  Only  Memory 
(ROM)  containing  operating  system 
routines.  Most  of  the  operating  sys- 
tem, however,  is  loaded  from  disk 
into  RAM  on  early  model  Amigas. 
This  leaves  about  130K  RAM  free 
on  a  256K  system.  The  operating 
system  won't  be  burned  into  ROM 
chips  until  later.  Commodore 
hasn't  decided  if  upgrade  ROMs 
will  be  available  for  early 
purchasers. 

■  Built-in  microfloppy  disk 
drive.  This  double-sided  drive 
squeezes  880K  of  data  on  a  single 
hardshell  SVi-inch  disk.  Four  exter- 
nal drives  can  be  daisy-chained  to  a 
port  on  the  back  panel. 

•  Two-button  mouse  controller. 
This  plugs  into  one  of  the  two  joy- 
stick ports  on  the  side  of  the 
machine. 

■  Detached  typewriter-style 
keyboard  v>'ith  separate  cursor 
keys,  numeric  keypad,  and  ten  spe- 
cial function  keys.  Interestingly,  the 
keyboard  not  only  returns  a  value 
when  a  key  is  pressed,  but  also 
when  the  key  is  released — a  highly 
unusual  feature.  Also,  Commodore 
says  the  Amiga  can  be  operated 
completely  from  the  keyboard, 
even  if  you  unplug  the  mouse  and 
hurl  it  across  the  room  by  its  wire 
tail, 

•  Two-level  operating  sys- 
tem— AmigaDOS  and  Intuition,  a 
Macintosh-style  user  interface  that 
uses  a  mouse,  icons,  pull-down 
menus,  screen  windows,  and  multi- 
ple screens. 

•  Multitasking.  The  Amiga  can 
run  several  application  programs 
simultaneously,  and  AmigaDOS  can 
even  perform  several  DOS  func- 
tions at  once  in  different  screen 
windows. 

•  Four  sound  channels  with 
stereo  output.  The  sound  capabili- 
ties are  the  best  of  any  personal 
computer  available — a  wide  variety 
of  musical  instruments  can  be  sim- 
ulated with  fidelity  approaching 
that  of  professional -quality  synthe- 
sizers, A  pair  of  phono  jacks  on  the 
rear  panel  sends  two  sound  chan- 
nels to  each  auxiliary  input  jack  on 
your  stereo,  or  they  can  be  plugged 
into  a  mono  sound  system.  There 
are  also  provisions  for  digital  sound 
sampling  with  optional  equipment. 


ONLINE  T^E  U.S.  A. 
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Be  anything  you  want  on  American  PEOPLE/LINK, 
where  people  from  across  the  country  get  together 
every  night . 

They  are  people  with  interests  in  sports,  movies, 
music,  games,  and  just  meeting  other  people  .  .  . 
people  like  you.  Whatever  your  interests  or 
fantasies,  you'll  find  someone  to  share  them  with 
on  PEOPLE/LINK. 

See  for  yourself  why  so  many  men  and  women  are 
getting  together  and  partying  online  with  us.  Not 
screen  after  screen  of  boring  data  .  .  .  Just  lots  of 
fun  and  friendly  people. 

And  our  low,  low  rates  won't  turn  your  online 
dreams  into  nightmarish  monthly  charges.  To 


discover  our  affordable  videotex  entertainment, 
call  or  write  us  today. 

PEOPLE/LINK  ...  the  network  that  says 
"Thank  You." 

FAMERiCAN 


PEOPLE 


American  PEOPLE/LINK 

Arlington  Ridge  Office  Center 

3215  N,  Frontage  Road  -  Suite  1505 

Arlington  Heights,  IL  60004 

1-800-524-0100  (ToU  Free)     1-312-870-5200  (Illinois) 


This  picture  was  created  on  the  320  X  200  graphics  screen  by  an  artist  at  Island 
Graphics,  an  Amiga  software  developer. 


•  Outputs  for  analog  RGB  (red- 
green-blue)  monitors,  composite 
color  and  monochrome  monitors, 
and  TV  sets.  Commodore  is  selling 
its  own  fine-pitch  RGB  monitor  un- 
der the  Amiga  brand  name.  An 
RGB  monitor  is  highly  recommend- 
ed for  the  Amiga,  because  the 
higher-resolution  graphics  modes 
exceed  the  capabilities  of  composite 
monitors  and  TVs. 

•  Centronics-standard  parallel 
port  for  printers  and  other 
peripherals. 

•  RS-232  serial  port  for  print- 
ers, modems,  and  other  peripher- 
als. Tecmar,  Inc.,  of  Cleveland, 
Ohio,  is  introducing  a  2400  bits- 
per-second  modem  for  this  port. 

•  Expansion  port  that  carries 
every  line  on  the  system  bus.  This 
port,  on  the  right  side  of  the  system 
unit,  is  extremely  versatile  and  will 
be  used  for  memory  expansion  be- 
yond 512K  RAM,  among  other 
things.  Tecmar  is  introducing  a  20- 
megabyte  hard  disk  drive  and  an 
expansion  board  that  adds  a 
battery-backed-up  clock/calendar, 
a  second  RS-232  port,  and  up  to 
two  megabytes  of  RAM.  Coproces- 
sors are  another  possibility. 

•  A  total  of  4,096  colors,  far 
surpassing  any  other  personal  com- 
puter on  the  market.  Up  to  16  or  32 
colors  can  be  displayed  simulta- 
neously in  the  standard  graphics 
modes,  and  all  4,096  can  be  shown 
onscreen  in  a  special  mode  called 
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hold  and  modify. 

•  Graphics  modes  of  640X400 
with  16  colors;  640X200  with  32 
colors;  320X400  with  16  colors; 
and  320X200  with  32  colors.  The 
screen  display  system  bears  a  closer 
resemblance  to  8-bit  Atari  comput- 
ers than  to  existing  Commodores — 
not  surprising,  since  some  of  the 
Amiga  designers  were  among  those 
who  built  the  original  Atari  800  in 
the  late  1970s.  For  example,  a  series 
of  memory  registers — not  color 
memory — determines  which  colors 
will  be  selected  onscreen.  Among 
other  things,  that  means  that  the  16 
or  32  colors  displayable  in  the 
graphics  modes  can  be  any  of  the 
4,096  possible  hues,  and  that 
changing  a  color  register  instantly 
changes  the  color  of  everything 
previously  dravwi  in  that  color. 

•  Eight  multicolor  sprites.  The 
sprites  can  be  reused  on  various 
parts  of  the  screen  to  create  even 
more  moving  objects.  In  some 
ways,  they  resemble  Atari  player/ 
missile  graphics  instead  of  Commo- 
dore 64-style  sprites — they  aren't 
square  blocks,  but  rather  tall  strips 
which  extend  the  full  height  of  the 
screen.  Unlike  Atari  players  or 
Commodore  sprites,  however,  the 
Amiga's  sprites  are  16  pixels  wide 
and  can  display  four  colors  simulta- 
neously with  resolution  equivalent 
to  the  320  X  200  mode.  By  over- 
laying sprites,  up  to  1 6  colors  can  be 
displayed  per  object. 


•  Text  modes  of  40,  60,  or  80 
columns.  Actually,  the  Amiga  has 
no  true  text  modes  in  the  conven- 
tional sense;  all  characters  are  dis- 
played in  high-resolution  graphics. 
This  makes  possible  a  wide  variety 
of  onscreen  type  styles. 

•  Speech  synthesis  as  a  stan- 
dard feature.  This  is  simulated  in 
software,  not  built  into  the  hard- 
ware. The  male  voice  seems  to  have 
a  foreign  accent  and  definitely 
sounds  like  a  computer,  but  is  more 
understandable  than  most  speech 
synthesizers.  English  text-to- 
speech  conversion  is  included. 

•  BASIC  on  disk.  Two  BASIC 
interpreters  are  in  the  final  stages  of 
development — ABasiC  (Amiga 
BASIC)  and  a  Microsoft  BASIC 
which  Commodore  says  resembles 
Microsoft  BASIC  for  the  Macintosh. 
According  to  Commodore,  the 
Amiga  will  be  shipped  with  the 
Microsoft  BASIC,  and  ABasiC  will 
be  optional.  Both  are  very  powerful 
languages  with  support  for  graph- 
ics, animation,  sound,  operating 
system  calls,  and  the  Intuition  user 
interface.  Other  interpreters,  com- 
pilers, and  assemblers  (including 
Pascal,  Forth,  and  C)  will  be  avail- 
able soon  after  the  Amiga  is 
introduced. 

Although  prices  still  haven't 
been  firmed  up  at  this  writing,  it 
appears  the  basic  system  unit  with 
256K  RAM,  built-in  disk  drive,  de- 
tached keyboard,  mouse  controller, 
operating  system  software,  and 
BASIC  will  cost  $1,000  to  $1,500. 
The  same  system  with  512K  RAM 
and  a  high-resolution  RGB  color 
monitor  will  cost  about  $2,000. 

As  personal  computers  have 
grown  more  powerful  over 
the  years,  designers  have 
wrestled  with  a  dilemma:  ease  of 
use  versus  full  flexibility.  Beginners 
and  casual  users  need  a  computer 
that's  simple  to  learn  and  operate, 
while  advanced  users  don't  want  to 
be  bogged  down  with  distractions. 
The  Amiga  designers  have 
worked  out  a  compromise  by  offer- 
ing an  operating  system  that  can  be 
used  both  ways.  With  Intuition,  the 
Macintosh -like  interface,  you  can 
manipulate  the  system  simply  by 
pointing  to  menu  items  or  icons 
representing  the  functions  you 
want.  For  example,  to  call  a  disk 
directory  on  a  Commodore  64^  you 


/This  isntjust  hype.  We  really  do  have  the  money./ 


WANTED: 

Worlds  Greatest  Adventures. 

REWARD:  $1000  and  Fame,  call  (800)  227-6703. 


ACS  is  your  tool  ViT.  Moft  ihan  7000  pans  lo 
build  fTOTTi-  Power  to  spare! 


Or  nulce  your  own  pans  fi-om  scratch.  Draw  em. 
Give  cm  properties,  Go  for  ii! 


ACS  is  menu  driven.  [[  n'orlcs  with  a  positive 
"stick  shift"  comroUer.  Easy  as  pie! 
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Mountains,  oceans  Jorciis  Si  etc.  arc  pre-built.Or 
tnakc  your  own  Liulscjip«,  Yqu'rc  tJnc  boss! 


Amiinr^j  fact  ffl:  ACS  miakts  advcnrarea  (Sl 
finishes  paits  of  vours)  by  ilH:If,This  is  No  Lie 


Music  modules  &  sound  effects  included.  Score 
your  adventures  like  movies.  Be  i  maesn'o! 


No  arms  control  here!  Endless  weapons  of  your 
dciiigT-  {Endless  armor  ^  cute*,  fortunatelv.) 


Complete,  top-notch  epic  advirnture  included;  500 ofcnOxiOus  treaturea  ihiown  in!  Or  malce  yoUr       You  get  magid  31  varialiCns  on  I5  Big  SpcUs! 

RiwTi  of  Ug^i  by  Stiart  Smith,  author  of  Aii  BcJW    owiv  Point  em  a:  the  population!  See  their  prioriiics!     You  get  technology  You  ge:  religion.  All  ri^tT 


AmaiiHij;  fact  Kh  ACS  integrates  text  and  graphics, 
All  other  products  wimp  on(  in  this  regard. 


Qiaiaictcra^Howmany  you  want?  Make  cm.  Break     7  tutorial  mini-advcnturei  included!  Generously 
tm.  Cast  them  in:o  the  world  without  a  dinYe!  survivabic  for  those  wntative  first  timers! 


Design  xtp  to  15  different  regions  wuh  16  difftrent 
rooms  inuch  one.  SfMce  our! 


When  you've  madea  sippo-iockoCREAT  ADVEN- 
TURE, send  it  here.  You  codd  win  1,000  smacken! 


Adventure  CoNsniucnoN  Set 


from  Electronic  Arts" 


HOW  TO  WIN!  Send  your  advenuire  entries  to  Electronic  Arts  by  12^0/85,  3  winners  will  be  selected  by  our  judges.Their  decision:  final. 
Your  adventure  becomes  "public  domain"  which  means  you  can  still  get  famous  even  if  you  don't  get  rich.  HOW  TO  ORDER:  Visit  your  retailer 
or  call  800-227-6703  for  direct  VISA  or  MasterCard  orders  (in  CA  call  800-632-7979),To  buy  by  mail,  send  check  or  money  order  to  Electronic 
Arts,  PO.  Box  306,  Half  Moon  Bay,  CA  94019.  Add  $3  to  cover  insured  shipping  and  handling.  Indicate  desired  machine  version.  Allow  1-4 
weeks  for  delivery.  A  (1 EA  (troduos  purchased  direct  have  a  14  day"5attsfacoon  or  your  money  back" guarantee.  PRICE  &  MACHINE  AVAILABILITY' 
C-64  $39,95.  Apple  He/c  $49,95.  Coming  soon  to  IBM  PC/PCjr  $49.95.To  receive  our  complete  product  catalog  and  directorder  form,  send  50f' 
and  a  se!f-addressed,stamped  envelope  to  Electronic  Arts,  Catalogue  Offer,  2755  Campus  Drive,  San  Mateo,  CA  94403 


ANNOUNCING  THE 
FAMILY  SOFTWARE  SPECTACULAR: 


BUY  3,  GET  1  FREE. 


CHOOSE FROM 
OVER  50  LEADING  TITLES. 

What  do  you  call  an  offer  that  brings  together,  for  the 
first  time  ever,  five  leading  brands  of  home  software? 

The  Family  Sofiware  Spectacular! 

And  it's  your  opportunity  to  choose  a  free  software  pro- 
gram from  the  best  titles  on  the  market  today.  All  you  have  to 
do  is  buy  any  combination  of  three  titles  from  any  participat- 
ing brands  during  this  special  offer  period ,  And  we'll  send 
you  another  one  of  your  choice -/ree/ 

It's  a  one-of-a-kind  value  your  family  shouldn't  miss. 

nSHER-PRICEf 
A  NAME  YOU  CAN  TRUST 

For  years  Fisher-Price  has  been  known  for  helping  chil- 
dren develop  skills  as  they  play.  With  Fisher-Price'"  Learning 
Software,  your  child  can  develop  skills  in  Hvt  key  areas:  math, 
language,  creativity,  basic  learning  and  computer  literacy. 

Your  child  will  love  developing  and  testing  language 
skills  with  the  help  of  PETER  RABBIT  READING,  a  pro- 
gram that  uses  voice  to  teach  sound  and  letter  recognition 
in  words. 


WINDHAM  classics:  CLASSIC 
NOVELS  COME  TO  LIFE. 

Hck  up  Windham  Classics,  graphic  interac- 
tive fiction  based  on  some  of  the  greatest  adventures 
of  all  time. 


They're  great  for  kids,  yet  fun  for  all  ages. 

Enjoy  "THE  WIZARD  OF  OZ.'" "  You  are  Dorotiiy, 
and  each  of  your  decisions  determines  your  adventure , 
There's  more  than  one  adventure  to  be  had  as  you  meet  old 
friends  and  new  in  die  land  of  Oz. 

WORK  BETTER  WITH 
BETTER  WORKING." 

Constantly  erasing  and  retyping?  Unsure  of  youi  spell- 
ing? WORD  PROCESSOR  WITH  SPELLCHECKERis 
exactiy  what  you  need.  This  lull  featured  word  processor 
includes  the  50,000  word  AMERICAN  HERITAGE 
DICTIONARY'"  spellchecker  which  detects  over  99%  of 
misspelled  words. 

The  full  line  also  includes 
FILE&  REPORTand 
SPREADSHEET-tides 
that  represent  the  best 
values  on  the  market 
today. 
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SPINNAKERf  THE  LEADER  IN 
FAMILY  LEARNING  SOFTWARE. 

From  pre-school  counting  to  high-school  compositions, 
Spinnaker  offers  the  high  quality  educational  programs 
you  have  come  to  expect ,  For  example,  there's  the  HOME- 
WORK HELPER'"  series  which  provides  step-by-step 
methods  for  improving  writing  and  math  skills  and  helps 
kids  tackle  odierwise  troublesome  school  assignments. 

telarium: 

INTERACTIVE  FICTION  AT  ITS  BEST. 

Here's  graphic  interactive  fiction  by  famous  writers  of 
science  fiction,  fantasy,  and  mystery  like  Ray  Bradbury,  Arthur 


C.  Clarke  and  Erie  Stanley  Gardner.  Each  story  unfolds  with 
you  in  the  center  of  the  action  -  and  completely  in  control .  In 
PERRY  MASON:  THE  CASE  OF  THE  MANDARIN 
MURDER"  you  are  the  world  famous  criminal  law3'er.  Chal- 
lenge the  evidence.  Cross-examine  the  wimess.  Only  you 
can  prove  your  client's  iimocence.  And  time  is  running  out. 

A  SOFTWARE  OFFER  FOR  ALL  AGESl 

Any  software  offer  including  something  for  everyone  in 
the  family  is  certainly  fantastic.  But  combine  that  with  a  free 
product  offer  and  what  you  have  is  something  spectacular. 
Look  for  the  specially  marked  boxes  of  The  Fainily  Software 
Spectacular  at  your  retailer. 


_  _  _  _  Ti^ 
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TURN  PAGE  FOR  MORE  INFORMATION  ON  THE  FAMILY 
SOFTWARE  SPECTACULAR 

c  |91i5  SSC. ,  Oni:  Kendall  .St)uiirc, Cainbndge. MA  02 1 n.  K\\  righrs  restmii.  Titles availaWcmmost  popular hwiaetooiIKiIere  SccllinESoft- 
FHh  HMILV  SOI-  rWARi;  SPECraCULAR  is  :i  irijemirk  olSrinmkcr  Srfrw-dK  iMrn  Sl'lW  AKER  \-.  a  rcsrislmd  ™tfm.rt  «f 
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Free  plastic 
library  case. 
Lifetime  warranty. 

5V4"  Single  Sided/ 
Double  Density  . . . . 

bV^"  Double  Sided/ 
Double  Density  . , . . 


50+   100  + 
Price  Each 

.99     .94 


1.09  1.04 


From  the  inventors  of  the  Vh" 
Micro  Disk  . . . 


SONY 

Ten-pack,  boxed 
diskettes. 


3'/;"  Single  Sided/ 
Double  Density 
31/2"  Double  Sided/ 
Double  Density 
5V4"  Single  Sided/ 
Double  Density 
5Vt"  Double  Sided/ 
Double  Density 


20+      50+     100  + 
Price  Each 

2.28  2.25  2.19 

3.45  3.39  3.35 

—  1.29  1.25 

—  1.59  1.55 


APPLE  IMAGEWRITER  RIBBONS 


$3.69  each 

Many  other  models  available. 
Boxed  in  dozens. 

DISK  FILES 

The  deluxe  files  for  S'A"  or  5%"  floppies. 
Buff  plastic  body  with  natural  oak  roll-top. 
Each  comes  with  dividers  and  color  coded 
labels. 


for3'/j"  for5%" 

holds  55   $17.49     holds  140   $24.99 

Other  colors  and  locking  models  available. 


TOL?FREE  1-800-USA-FLEX 

7  to  7  Central  Standard  Time 

IN  ILLINOIS  1-312-351-9700 

deaai  menlion  this  aa  wtien  calling  in  your  order.  Master- 
Card.  Visa.  C.O.D.  or  Net  30  days  with  approvrt  credi!  on 
purchases  over  S200.D0.  Shipqing/Handling  additional. 
Prices  subjecl  lo  change  without  notice 


COMARK.  INC.  135  N.  Brandon 
Glendale  Heighls,  Illinois  60139 


have  to  type  LOAD"$",8  and  then 
LIST — hardly  mnemonic  or  intu- 
itive. But  on  the  Amiga,  you  can  call 
a  directory  simply  by  rolling  the 
mouse  to  point  at  a  disk  icon;  the 
files  on  the  disk  will  appear  on- 
screen as  file  folder  icons.  To  delete 
a  disk  file,  you  no  longer  have  to 
type  OPEN15,8,15,"S0:filename- 
":CLOSE15.  Instead,  you  just  point 
to  a  file  icon  and  drag  it  into  an  icon 
of  a  trash  can. 

With  Intuition,  you  can  shrink 
any  screen  into  a  window  and  layer 
several  such  windows  on  the  screen 
at  once.  In  effect,  the  computer 
screen  resembles  a  desktop  on 
which  papers  can  be  shuffled 
around  or  pushed  aside.  Windows 
can  be  opened,  closed,  resized,  and 
moved  about.  You  can  even  display 
multiple  screens  on  top  of  each  oth- 
er, all  with  their  own  windows. 

More  advanced  users  haven't 
been  forgotten,  however.  Below 
this  shell  of  windows  and  menus 
lies  the  core  operating  system, 
AmigaDOS — perhaps  the  most 
powerful  disk  operating  system  of- 
fered on  any  personal  computer. 
It's  a  command-line  interpreter  pat- 
terned after  Unix,  and  it  also  resem- 
bles PC-DOS  and  CP/M.  A  large 
number  of  advanced  functions — in- 
cluding batch  files  and  multitasking 
DOS  commands — are  available  by 
typing  keyboard  commands  at  the 
AmigaDOS  screen  prompt.  In  fact, 
AmigaDOS  even  qualifies  as  a 
small  programming  language.  It 
has  commands  for  IF-THEN  com- 
parisons, branching  to  labels,  and 
looping,  so  you  can  construct  batch 
files  to  run  the  computer 
automatically. 

Furthermore,  AmigaDOS  was 
designed  from  the  ground  up  as  a 
multitasking  operating  system.  Al- 
though it  is  difficult  to  pick  the 
Amiga's  most  impressive  feature, 
multitasking  is  a  top  candidate.  In 
effect,  it's  like  having  a  mainframe 
computer  with  several  terminals  all 
to  yourself.  You  can  run  several 
programs  at  once,  in  multiple  win- 
dows and  screens,  without  notice- 
ably affecting  performance. 

For  instance,  you  can  run  a 
word  processor,  spreadsheet,  and 
database  manager  simultaneously, 
flipping  between  the  three  win- 
dows as  needed.  Or  you  can  print 
out  a  document  with  a  word  pro- 
cessor in  one  window  while  writing 


An  example  of  blitter  animation.  In  this 
demo,  the  ball  spins  and  bounces  around 
the  screen,  with  sound  effects  in  stereo 
(see  text). 

another  document  in  a  different 
window.  Or  you  can  work  on  sever- 
al files  at  once — and  even  several 
versions  of  the  same  file — by  run- 
ning a  single  application  program 
in  several  windows.  Programmers 
can  test-run  a  program  in  one  win- 
dow while  editing  the  code  in  an- 
other. Even  AmigaDOS  itself  can 
be  running  in  multiple  windows, 
processing  a  number  of  DOS  com- 
mands simultaneously. 

The  limit  on  this  kind  of  multi- 
tasking depends  on  the  complexity 
of  the  application  programs  and  the 
amount  of  available  memory.  In  a 
test  using  small  BASIC  programs. 
Commodore  claims  that  Amiga- 
DOS  has  handled  50  windows  run- 
ning 50  programs  at  once.  After 
that  point,  they  lost  track  of  what 
was  happening. 

Part  of  the  secret  behind  the 
Amiga's  multitasking  is  its  trio 
of  custom  chips.  Like  a  team 
of  busy  assistants,  they  free  the 
68000  microprocessor  for  more  im- 
portant jobs,  sometimes  to  a  star- 
tling degree.  For  instance,  a 
graphics  demo  on  the  Amiga  fea- 
tures a  bouncing  ball  (see  photo). 
The  large  checkered  ball  rotates  on 
its  axis  in  simulated  3-D  while 
bouncing  off  the  bottom  and  sides 
of  the  screen;  the  shadow  it  casts  is 
transparent,  partially  obscuring  the 
background  text  over  which  it 
passes;  and  bouncing  sounds  echo 
realistically  from  the  left  and  right 
stereo  speakers  each  time  the  ball 
hits  a  surface.  Yet,  while  all  this  is 
happening,  the  68000  is  doing 
nothing  but  calculating  the  bounce 
angles,  working  at  only  8  percent 
capacity. 

The  blitter  and  copper  are  ca- 
pable of  cartoon-quality  animation. 


HOWTO 

TURN  YOUR 

APPLE' 

INTOA 


Here's  how  to  make  the 
investment  in  your  Apple 
really  pay  off. 

With  SPECTRUMf"  the 
new  electronic  home  bank- 
ing and  information  system 
from  The  Chase  Manhattan 
Bank,  N.A.  Teamed  up  with 
your  PC,  SPECTRUM  is  your 
direct  link  to  Chase.  And  the 
start  of  a  better  way  to 
manage  your  money  and 
your  time. 

A  push  of  a  button  lets 
you  pay  bills  electronically 
anywhere;  transfer  funds; 
keep  records,  and  more. 
Even  get  vital  financial  infor- 
mation and  trade  stocks*  at 
discount  rates. 

Right  at  home,  anytime 
-with  complete  security 
All,  including  electronic 
mail,  starting  at  just  $5  a 
month.  And  with  our  new 
subscriber  rebates  and  free 
offers,  now's  an  even  better 
lime  to  get  control  of  your 
finances.  Call  today  for  your 
free  demo  diskette. 


CALL  TOLL  FREE 

1-e00-522-7766 


o 


©  1985  The  Chase  Manhatlan  Corporation. 

Apple  is  a  registered  trademark  of  Apple  Compuler,  Inc. 

"Slocks  are  traded  thrajgh  Rose  &  Company, 

a  Chase  affiliate. 


Another  low-resolution  screen  created 
by  Island  Graphics.  The  artist  used 
GraphiCraft,  a  drawing  program  de- 
signed by  the  company  that  will  be  sold 
under  the  Amiga  brand  name. 

In  fact,  blitter  animation  is  so  good 
that  Commodore  hardly  talks  about 
the  Amiga's  sprite  graphics.  The 
blitter  can  move  a  screen  object  of 
any  size,  shape,  and  color  at  least  as 
fast  as  a  sprite.  It  even  has  such 
sprite-like  features  as  proximity  de- 
tection and  display  priorities.  One 
Amiga  demo  shows  a  futuristic 
street  scene  with  moving  objects 
passing  behind  and  in  front  of  each 
other  on  five  levels — all  without 
sprites.  If  you  do  choose  to  write  a 
program  with  sprites  and  use  up  all 
eight,  the  blitter  can  simulate  extra 
sprites  to  give  you  as  many  inde- 
pendent objects  as  you  want. 

Another  fascinating  feature  of 
the  Amiga  is  its  ability  to  superim- 
pose multiple  screens,  referred  to  as 
playfields.  You  can  think  of  a  play- 
field  as  a  giant  sprite  that  covers  the 
entire  screen,  By  cutting  holes  in 
the  playfield,  you  can  see  the  other 
playfield  which  lies  below  it.  Each 
playfield  can  be  independently 
scrolled  vertically  and  horizontally. 
In  combination  with  sprites  and 
blitter  objects,  this  feature  could 
lead  to  incredible  3-D  games  and 
other  graphics  effects.  Intuition 
uses  playfields  to  let  you  slide  one 
screen  away  to  reveal  another  be- 
neath it,  like  a  sliding  chalkboard. 

Even  more  interesting  things 
become  possible  when  you  add  an 
optional  video  board  (about  $200). 
This  lets  you  feed  standard  video 
signals  into  the  Amiga  and  mix 
them  with  graphics.  The  video  sig- 
nals can  originate  from  a  video 
camera,  videocassette  recorder, 
laserdisc  player,  TV  receiver  with 
video  output,  or  another  computer. 
Island  Graphics  of  Sausalito,  Cali- 
fornia, which  is  developing  graph- 
ics software  for  the  Amiga,  used 
video  mixing  to  reproduce  the 


[SEE  PREVIOUS  PAGE] 

HERE'S  HOW  YOUR 

FAMILY  CAN 

PARTICIPATE  IN 

REMEMBER,  TO  RECEIVE  A  FREE 
PRODUCT  YOU  MUST  PURCHASE 
ANY  THREE  TITLES  FROM  THE  PAR- 
TICIPATING BRANDS  (IN  ANY  COMBI- 
NATION) AND  MAIL  YOUR  ENTRY  NO 
LATER  THAN  JANUARY  31, 1987. 

1.  Slart  by  saving  the  rccdpt(s)  from  your  soft- 
ware program  purchases.  (It  is  not  necessary 
for  software  purchases  to  appear  on  one 
receipt .  Photocopies  of  the  receipt(s)  are  ac- 
cepted. Receipts  must  be  dated  BETWEEN 
JULY  1, 1985,  AND  JANUARY  31, 1987.) 

2.  Cut  the  proof-of-purchase  tab  from  each  of 
the  three  user  manuals  that  come  with  the 
programs .  (Photocopies  not  accepted . ) 

3.  Attach  the  purchase  rcceipt(s)  and  the  three 
original  proof-of-purchase  tabs  to  one  sepa- 
rate sheet  of  paper. 

4.  Fill  in  the  form  below  and  place  the  com- 
pleted fonn  in  an  envelope  with: 

a.  A  sheet  of  paper  with  three  original 
proof-of-purchase  tabs  and  your 
purchase  receipt(s) 

b.  A  check  or  money  order  for  $3.50  to 
cover  postage  and  handling.  (Canada 
residents  please  send  55-00  for  postage 
and  handling.) 

Make  check  payable  to  THE  FAMILY 

SOFTWARE  SPECTACULAR  and  mail 

envelope  to: 

THE  FAMILY  SOFTWARE 

SPECTACULAR 

P.  0.  Box  1327,  Cambridge,  MA  02238 


ORDER FORM 

To  receive  your  free  program,  this  form  must  be 
filled  out  completely.  Please  print. 

Free  Product  Chosen: 

Title/Brand 

Computer/Model 


M-^KE  SURE  THE  PRODUCT  YOU  CHOOSE  IS 
AVAILABLE  ON  THE  COMPUTER  SYSTE.M 
YOU  HA\'E  SELECTED. 

Name 


Phone (_ 
Address. 
City 


.State. 


.  Ztp- 


TITLES  PURCHASED 


1.. 
2.. 
3.. 


BRANDS 


DATE OF PURCHASE 

1 . 

2 

3 


AJlow  5-8  wnks  for  delivtry  of  your  free  soAwirc  program . 
Noie:  AH  receipis  anden«lope  poslraark  must  be  daicd 
prior  to  January  3!,  1987.  Offer  good  b  the  CS  and  Canada 
only.  Limil  one  free  product  per  houscholdcustomer. 
Schools  and  institutions  not  eligible.  Void  where  taxed, 
resmcicd  or  prohibited  by  law. 

BHP 
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This  Edgar  Degas  painting  was  carefully  copied  onto  the  Amiga's  low-resolu- 
tioti  screen  by  Island  Graphics  (see  text).  Although  the  520  X  200  resolution 
in  this  mode  is  no  greater  than  that  found  on  today's  home  computers,  the 
Amiga's  extensive  color  palette  allows  it  to  do  more  justice  to  the  original. 


Degas  painting  seen  in  the  accom- 
panying screen  photo.  First,  the 
painting  was  displayed  onscreen  as 
a  video  image;  next,  a  drawing  pro- 
gram was  superimposed;  then, 
pixel  by  pixel,  an  artist  traced  the 
image  in  computer  graphics  by  ma- 
nipulating the  mouse. 

When  the  optional  video  board 
is  finished,  this  process  will  be 
automated  by  a  feature  called  the 
frame  grabber.  As  the  term  implies, 
the  frame  grabber  can  digitize  an 
incoming  video  image  automatical- 
ly. You  could  capture  any  scene 
with  a  video  camera,  digitize  it, 
modify  it  with  a  graphics  program  if 
desired,  and  then  dump  the  image 
to  a  graphics  printer.  The  Diablo 
color  Inkjet  printer,  with  an  Amiga 
printer  driver,  can  closely  repro- 
duce any  Amiga  screen.  We've  also 
heard  that  work  is  underway  on  a 
laser  printer  capable  of  reproducing 
any  screen  image  in  color. 

Equally  remarkable  are  the  Ami- 
ga's sound  capabilities.  On 
most  computers,  four  sound 
channels  mean  you're  limited  to 
four-part  harmony   or   four-note 

2S    COMPUTEI     September  1985 


chords.  But  because  the  Amiga  cre- 
ates sounds  by  simulating  complex 
waveforms,  it  can  play  chords  using 
only  one  sound  channel.  As  a  re- 
sult, the  Amiga  can  simulate  a  wide 
variety  of  musical  instruments, 
often  with  uncanny  realism.  We've 
experimented  with  pipe  organ 
sounds  that  would  grace  a  cathe- 
dral, drum  sounds  that  could  ham- 
mer out  a  hot  rap  rhythm,  and 
heavy-metal  electric  guitar  chords 
that  could  blow  you  out  of  the 
room. 

The  sound  demo  program  we 
used  lets  you  tinker  with  the  syn- 
thesized instruments  merely  by 
pulling  down  menus  and  selecting 
options  with  the  mouse.  No  PEEKs, 
POKES,  programming  skills,  or 
computer  knowledge  is  required. 
For  instance,  one  menu  contained 
parameters  for  the  sound  enve- 
lopes, such  as  attack,  decay,  sus- 
tain, and  release.  Submenus  for 
each  parameter  presented  such 
choices  as  "very  slow"  to  "very 
fast."  By  readjusting  the  electric 
guitar  envelope  for  a  very  slow  at- 
tack and  very  fast  release,  we  creat- 
ed  a  backwards   guitar  sound 


reminiscent  of  1960s  records  by 
Jimi  Hendrix  or  the  Beatles. 

On  other  computers,  custom 
sounds  can  only  be  created  by  labo- 
rious programming.  But  with  an  op- 
tional  accessory  (price 
unannounced),  the  Amiga  provides 
a  shortcut — digital  sound  sam- 
pling. Just  as  the  frame  grabber  lets 
you  digitize  a  picture,  sampling  lets 
you  capture  and  digitize  any  sound 
fed  into  the  Amiga  from  an  outside 
source.  Want  to  simulate  a  saxo- 
phone? Just  play  a  sax  into  a  sound 
system  that's  plugged  into  the 
Amiga,  or  even  hook  up  your  stereo 
to  the  computer  and  pipe  in  some 
music  from  a  favorite  record,  tape, 
or  compact  disc.  We've  also  heard 
demos  of  digitally  sampled 
speech — not  to  be  confused  with 
synthesized  speech — that  sound  as 
good  as  tape  recordings. 

Commodore  says  several  com- 
panies are  working  on  music  key- 
boards that  will  turn  the  Amiga  into 
a  full-blown  synthesizer.  By  using 
the  computer's  memory  as  a  se- 
quencer, the  Amiga  could  become  a 
multitrack  recording  studio  for  the 
additional  cost  of  only  a  few  hun- 
dred dollars. 

This  report  only  scratches  the 
surface.  A  complete  set  of  tech- 
nical manuals  for  the  Amiga 
resembles  a  stack  of  Manhattan 
phone  books — it  will  be  months, 
perhaps  years,  before  they're  fully 
explored  by  programmers  and  soft- 
ware manufacturers.  People  are  still 
developing  new  techniques  on 
computers  which  have  been  avail- 
able for  years,  and  the  Amiga  is  a 
whole  order  of  magnitude  more 
advanced. 

A  significant  number  of  com- 
panies are  now  programming  for 
the  Amiga,  and  it  appears  that 
about  two  dozen  packages  will  be 
available  around  the  time  the  com- 
puter hits  the  stores.  These  include 
everything  from  word  processors  to 
business-graphics  programs  to 
games. 

Looking  toward  the  future. 
Commodore  says  this  computer  is 
just  the  first  in  a  series  of  Amigas, 
and  that  this  one  represents  the  low 
end.  What's  to  follow?  Commodore 
isn't  saying.  Perhaps  the  best  thing 
about  the  Amiga  is  that  it  stretches 
our  imaginations  a  little  bit  further. 
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You  deserve  the  best.  You've  earned  it  Now  reward  yourself  with  a  session  of  Night  Mission  PINBALL, 
the  most  realistic  and  challenging  arcade  simulation  ever  conceived!  ■  Stunning  graphics  and  dazzling 
r^-—r     ■^■~~^  sound  effects  put  Night  IMission  PINBALL  in  a  class  by  itself.  Game  features:  multi- 
3*:  ^y7ti,  ,i!';        ball  and  multi-player  capabilities,  ten  different  professionally  designed  levels  of  play, 
=E^  W  '  (  "^        ^"'*  ^"  editor  that  lets  you  create  your  own  custom  modes.  ■  So  take  a  break  with 
c'dr"'!   1  Night  Mission  PINBALL  from  SubLOGlC.  Winner  of  £/ecfron/c  Games  magazine's 

■^li'^  '  t983  Arcade  Award  for  Best  Computer  Audio/Visual  Effects. 


See  your  dealer . . . 

or  write  or  call  for  more  information. 

Order  Line:  800  /  637-4983 
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713  Edgebrook  Drive 
Champaign  iL  61820 
(217)  359-8482  Telex:  206995 


The  Electronic 


Want  to  earn  a  college  degree  with-out 
leaving  home!  Or  take  self-improvement 
courses  and  sit  in  on  lectures  conducted  by 
noted  authorities — all  through  your  com- 
puter! By  enrolling  in  The  Electronic  Uni- 
versity— a  computerized  correspondence 
school — you  can  do  all  that, 
and  much  more. 


University 


aron  Darling 


Leeann  Pearce  calls  The  Electronic  University  a  "miracle."  As  she  sits  at  the 
Commodore  SX-64  in  her  home  in  West  Des  Moines,  Iowa,  Pearce  is  working 
toward  a  degree  in  computer  technology  to  be  granted  by  Thomas  A.  Edison 
ji     College  in  New  Jersey.  Although  she  lives  a  thousand  miles  away  and  suffers  from 
multiple  sclerosis,  Pearce  is  gaining  the  benefits  of  a  college  education  by  using  an 
online  educational  system  designed  to  work  with  home  computers.  Her  husband, 
Frank,  is  using  the  same  system  after  he  comes  home  from  work  at  night  to  earn  a 
master's  degree  in  business.  And  their  eight-year-old  daughter,  Katie,  who 
used  to  have  trouble  with  math  in  school,  has  boosted  her  grades  by  taking 
an  online  math  tutoring  class.  Katie  is  also  halfway  through  a  com- 
puter programming  course  and  is  registering  for  a  class  in  lit- 
erary arts  this  fall.  One  of  the  family's  biggest 
problems  now  is  arranging  schedules  so  that 
each  has  enough  time  with  the 
computer. 
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ble  to  attending  local  colleges.  But 
what  really  made  the  difference 
was  the  ability  to  take  courses  with- 
out leaving  home.  Because  classes 
proceed  at  the  student's  own  pace, 
Pearce  was  able  to  undergo  surgery 
six  months  ago  without  interrupt- 
ing her  coursework.  And  academi- 
cally, they  find  the  classes  as 
worthwhile  as  those  taken  the  tra- 
ditional way. 

"I  would  say  the  courses  are 
challenging  enough,"  says  Pearce. 
"They're  like  peanuts — you  keep 
wanting  to  come  back  for  more. 
And  to  bat  around  ideas  with  a 
Ph.D.  is  really  wonderful  to  me." 


What  began  as  a  project  to 
teach  people  how  to  use 
modems  has  grown  into  a 
telecommunications  network 
which  allows  students  to  use  com- 
puters to  earn  high  school  and  col- 
lege degrees,  take  noncredit 
self-improvement  courses,  and  "at- 
tend" seminars  conducted  by  noted 
authorities.  Graduate  degrees  in 
business  administration  have  even 
been  added  to  The  Electronic  Uni- 
versity, which  was  developed  by 
TeleLearning  Systems,  Inc.  of  San 
Francisco,  a  company  founded  in 
1983  by  entrepreneur  Ron  Gordon. 
Close  to  15,000  students  are 
now  taking  classes  and  seminars  in 
subjects  ranging  from  economics  to 
the  subtleties  of  California  wines. 
And  the  number  of  colleges  and 
universities  participating  in  The 
Electronic  University  has  topped 
1,700 — all  of  which  offer  credit  for 
courses  taken  through  EU.  Among 
the  major  institutions  participating 
in  EU  are  Cornell  University, 
American  University  in  Washing- 
ton, D.C.,  Boston  University,  Vir- 
ginia Tech,  the  New  York  Institute 
of  Technology,  Brigham  Young 
University,  the  California  State 
University  system,  the  State  Uni- 
versity of  New  York,  and  many 
other  state  university  systems.  If 
enough  coursework  is  completed  to 
obtain  a  degree,  the  diploma  is  is- 
sued by  the  participating  institu- 
tion, not  EU.  It's  up  to  students  to 
make  sure  they  meet  the  require- 
ments of  the  college  from  which 
they  want  to  receive  the  credit.  EU 
has  counseling  services,  however, 
to  guide  students  through  a  degree 
program. 
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All  it  takes  to  enroll  in  EU  is  a 
computer  (the  system  is  compatible 
with  the  Commodore  64,  IBM 
PC/PCjr,  and  Apple  II  series),  a 
modem,  and  an  enrollment  pack- 
age from  EU.  The  package,  a  one- 
time investment,  costs  $79.95  for 
the  Commodore  64  and  $149.95  for 
Apple  and  IBM  computers.  If  you 
don't  own  a  modem,  TeleLearning 
will  sell  you  one  for  about  $100. 

Tuition  ranges  from  $12  for  a 
seminar  up  to  $295  for  some 
courses  leading  to  a  degree.  In  addi- 
tion, students  pay  connect-time 
fees  to  participate  in  seminars  and 
to  access  the  more  than  60  online 
databases.  These  fees  range  from 
about  17  to  80  cents  per  minute, 
depending  on  which  database  is  ac- 
cessed and  when  the  call  is  placed. 
(A  $15  monthly  minimum  is  re- 
quired.) To  avoid  long-distance 
charges,  the  phone  calls  are  made 
to  a  local  network  number. 

EU  offers  seven  degree  pro- 
grams, including  associate  degrees 
in  science,  management,  and  the 
arts;  bachelor's  degrees  in  business 
administration  and  the  arts;  and 
three  master  of  business  adminis- 
tration (MBA)  degrees — a  general 
MBA  and  two  specialized  MBAs  in 
technology/engineering  manage- 
ment and  individual  financial 
planning. 

Courses  for  college  credit  and 
self-improvement  aren't  the  only 


services  available.  The  enrollment 
package  also  offers  tutoring  pro- 
grams for  children,  an  electronic  li- 
brary with  more  than  eight  million 
books,  counseling  services,  and 
courses  in  business  and  profession- 
al skills.  Once  students  receive  the 
enrollment  package,  they  can  sign 
up  for  whatever  services  they  want. 
Credit  courses  begin  every  60  days. 


After  students  register,  they're 
mailed  an  information 
packet  on  the  courses  they 
selected.  The  packet  includes  as- 
signment outlines,  a  list  of  text- 
books and  other  required  materials, 
and  the  procedures  of  the  institu- 
tion delivering  the  course. 

Students  also  receive  a  floppy 
disk  containing  a  general  introduc- 
tion and  a  series  of  lessons.  A  typi- 
cal lesson  might  include  onscreen 
instruction,  a  textbook  reading  as- 
signment, or  other  outside  activities 
assigned  by  the  instructor.  Periodi- 
cally, students  must  use  their  com- 
puter to  transmit  a  progress  report 
to  their  instructor  via  electronic 
mail  (E-mail).  They  can  also  send 
questions  about  the  course  material 
and  receive  answers  from  the  in- 
structor by  E-mail.  Instructors  re- 
spond to  E-mail  messages  within  24 
hours.  In  addition,  students  can 
schedule  an  online  conference  with 
the  professor  during  designated  of- 
fice hours. 

Some  courses  feature  online 
exchanges  with  the  instructor  and 
even  electronic  forums  with  other 
students — a  kind  of  class  discus- 
sion via  computer.  Seminars  also 
employ  realtime  conferences.  Stu- 
dents sign  on  with  their  computers 
at  the  appropriate  time,  and  the 
entire  discussion  session  is  carried 
out  online. 

Roughly  50  percent  of  a 
course's  contents  call  for  responses 
from  the  instructor.  A  typical  class 
has  10  or  12  lessons;  of  those,  half 
usually  require  students  to  write  a 
response  and  send  it  to  the  instruc- 
tor via  modem,  while  the  other  half 
are  "read-write"  lessons.  In  that 
mode,  students  read  material  and 
type  responses  on  the  screen,  but 
the  results  are  not  sent  to  the  in- 
structor. However,  the  instructor 
has  the  option  of  testing  students 
on  read-write  material  to  check 
their  progress. 


Get  the  jiimj>on  the  weather- 
man by  accurutely  lorccasting 
the  local  weather  yourself 
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The  beautiful  princess  is  held 
captive  by  deadly  dragons.  Only 
a  knight  in  shining  armor  can 
save  her  now! 


A  time-saving  organizer  for 
coupons,  receipts  and  more. 


A  scieniifically  proven  way  to 
develop  an  awesome  memory. 


UTiLITY 
AUDIT 


Cut  your  energy  costs  by  moni- 
toring your  phone,  electric  and 
gas  bills. 


School-age  and  pre-school 
children  are  rewarded  for  right 
answers,  corrected  on  their 
wrong  ones. 


Vou  are  irappetl  in  a  Iivt- 
slory,  125-rDom  structure 
made  entirely  of  ice.  Find  the 
exit  before  you  freeze! 


Computerize  car  maintenance 
to  improve  auto  performance, 
economy  and  resale  value. 
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\  real  brainflexer.  Deflect 
random  talis  into  targets  on 
a  constantly  changing  playfield. 


Take  control  of  your  personal 
finances  in  less  than  one  hour 
a  month. 


Create  multi-colored  bar 
graphs  with  a  surprisingly 
small  amount  of  memory. 
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A  fun  was  to  drumahcally 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 

for  less  than  15  cents  each — 

every  month  in  COMPUTE! 


Every  month,  COMPUTE!  readers  enjoy  up  to 
30  brand-new,  ready-to-run  computer  pro- 
grams, even  arcade-quality  games. 

And  when  you  subscribe  to  COMPUTE!, 
you'll  get  them  all  for  less  than  15  cents  each! 

You'll  find  programs  to  help  you  conserve 
time,  energy  and  money.  Programs  like  Cash 
Flow  Manager,  Retirement  Planner,  Coupon 
Filer,  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense, 
Boggier,  Slalom,  and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and 
fun  with  First  Math,  Guess  That  Animal,  and 
Mystery  Spell. 

Looking  for  a  challenge?  You  can  write 
your  own  games.  Customize  BASIC  programs. 
Even  make  beautiful  computer  music  and 
pictures. 

It's  all  in  COMPUTE!.  All  ready  to  type 
in  and  run  on  your  Atari,  Apple,  Commodore, 
PET/CBM,  TI-99/4A,  Radio  Shack  Color 
Computer,  IBM  PC  or  IBM  PCjr. 


What's  more,  you  get  information-packed 
articles,  product  reviews,  ideas  and  advice  that 
add  power  and  excitement  to  all  your  home 
computing. 

And  when  it's  time  to  shop  for  peripherals 
or  hardware,  check  COMPUTE!  first.  Our 
product  evaluations  can  save  you  money  and 
costly  mistakes.  We'll  even  help  you  decide 
what  to  buy:  Dot-matrix  or  daisy-wheel  printer? 
Tape  storage  or  disk  drive?  What  about 
modems?  Memory  expansion  kits?  What's  new 
in  joysticks,  paddles  and  track  balls? 

Order  now!  Mail  the  postpaid  card  attached 
to  this  ad  and  start  receiving  every  issue  of 
COMPUTE!.  


For  Faster 

Service 

Call  Toll-Free 

1-800-334-0868 


COMPUTEI  P.O.  Box  914,  Farmingdale,  NY  11737 
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POWER  PLAN 

Powerful   spread- 
sheet plus  builtin 
graphics  -  display 
your  important  data 
visually  as  well  as 
numerically.    You'll 
learn  fast  with  the 
90+  HELP  screens. 
Advanced    users 
can  use  the  short- 
cut commands.  For  complex  spreadsheets, 
you  can  use  POWER  PLAN'S  impressive 
features:  cell  formatting,  text  formatting,  cell 
protection,  windowing,  math  functions,  row 
and  column  sort,  more.  Then  quickly  display 
your  results  in  graphics  format  in  a  variety  of 
2D  and  3D  charts.  Includes  system  diskette 
and  user's  handbook.  $49.95 
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CADPAK    is  a 

superb  design  and 
drawing  tool.  You 
can  draw  directly  on 
the  screen  from 
keyboard  or  using 
optional  lightpen. 
POINTS,  LINES, 
Boxes,  CIRCLES, 
and  ellipses;  fill 
with  solids  or  patterns;  free-hand  DRAW; 
ZOOM-in  for  intricate  design  of  small  section. 
Mesuring  and  scaling  aids.  Exact  positioning 
using  our  AccuPoini  cursor  positioning. 
Using  the  powerful  OBJECT  EDITOR 
you  can  define  new  fonts,  furniture,  circuitry, 
etc.  Hardcopy  to  most  printers.  $39.95 

McPen  lightpen,  optional  $49.95 


XPER  -  expert  system 

,        II 1,     XPER  is  the  first 

Jj^^lKJEiJ  expert  system  -  a 
new  breed  of 
intelligent  software 
for  the  C-64  &  0- 
128.  While  ordinary 
data  base  systems 
are  good  at  repro- 
ducing facts,  XPER 
can  help  you  make 
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decisions.  Using  its  simple  entry  editor,  you 
build  the  information  into  a  knowledge  base. 
XPER's  very  efficient  searching  techniques 
then  guide  you  through  even  the  most 
complex  decision  making  criteria.  Full 
reporting  and  data  editing.  Currently  used 
by  doctors,  scientists  and  research 
professionals.  $5935 


DATAMAT  -  data  management 


"Best   data   base 
manager  under $50" 
RUN  Magazine 


Easy-to-use,  yet 
versatile  and  power- 
ful features.  Clear 
menus  guide  you 
from  function  to  function.  Free-form  design 
of  data  base  with  up  to  50  fields  and  2000 
records  per  diskette  (space  dependent}. 
Simple  data  base  design.  Convenient  and 
quick  data  entry.  Full  data  editing 
capabilities.  Complete  reporting:  sort  on 
multiple  fields  and  select  records  for  printing 
in  your  specific  fomiat.  $39.95 
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t^ake  professional 
quality  charts  from 
your  data  in 
minutes.  Quickly 
enter,  edit,  save 
and  recall  your  data. 
Then  interactively 
build  pie,  bar,  line  or 
scatter  graph.  You 
can  specify  scaling, 
labeling  and  positioning  and  watch 
CHARTPAK  instantly  draw  the  chart  in  any 
of  8  different  formats.  Change  the  format 
immediately  and  draw  another  chart. 
Incudes  statistical  routines  for  average, 
deviation,  least  squares  and  forecasting. 
Hardcopy  to  most  printers,  $39.95 

CHARTPLOT-64  for  1520  plotter     $39.95 


TAS  -  technical  analysis 

Technical  analysis 

I charting  package  to 

jii >f%lj^;lfe--^ •  •   jy      help  the  serious 
'^p^'-'^—^^^^^H^^^^ii      investor.  Enter  your 
__^_____________      data  at  keyboard  or 

^'livn      t^ntj^^^jii^jfiiyi^      capture  it  through 
''•■''^■''^''''''''''^'^'■f'^'^'^^^^  DJN/RS  or  Warner 

■fa^gjTTi  ■  I  ■  1 1  ■  111—^      Services.     \  rack 

high,  low,  close, 
volume,  bid  and 
ask.  Place  up  to  300  periods  of  information 
for  10  different  stocks  on  each  data  diskette. 
Build  a  variety  of  charts  on  the  split  screen 
combining  information  from  7  types  of 
moving  averages,  3  types  of  oscillators, 
trading  bands,  least  squares,  5  different 
volume  indicators,  relative  charts,  much 
more.     Hardcopy  to  most  printers.    $84.95 
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The  most  advanced 
C  development 
package  available 
for  the  C-64  or  C- 
128  with  very  com- 
plete source  editor; 
full  K&R  compiler 
(w/o  bit  fields); 
linker  (binds  up  to 
7  separate  mod- 
ules); and  set  of  disk  utilities.  Very  complete 
editor  handles  search/replace,  80  column 
display  with  horizontal  scrolling  and  41 K 
source  files.  The  I/O  library  supports 
standard  functions  like  printf  and  fprintf.  Free 
runtime  package  included.  For  C-64/C-128 
with  1541/1571  drive.  Includes  system 
diskette  and  user's  handbook.  $79.95 
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Not  just  a  compiler, 
but  a  complete 
development  sys- 
tem. Rivals  Turbo 

Pascal®  in  both 
speed  and  features. 
Produces  fast  6510 
machine  code. 
Includes  advanced 
source  file  editor; 
lull  Jensen  &  Wirth  compiler  with  system 
programming  extensions,  new  high  speed 
DOS  (3  times  faster);  buiitin  assembler  for 
specialized  requirements.  Overlays,  11 -digit 
arithmetic,  debugging  tools,  graphics 
routines,  much  more.  Free  runtime 
package.  Includes  system  diskette  and 
complete  user's  handbook.  $59.95 


BASIC-64 
full  compiler        The  most  advanced 
■^  BASIC  compiler 

available  for  the  C- 
64.  Our  bestselling 
software  product. 
Compiles  to  super- 
fast  6510  machine 
code  or  very 
compact  speed- 
code.  You  can  even 
mix  the  two  in  one  program.  Compiles  the 
complete  BASIC  language.  Flexible  memory 
management  and  overlay  options  make  it 
perfect  for  all  program  development  needs. 
BASIC  64  increases  the  speed  oi  your 
programs  from  3  to  20  times.  Free  runtime 
package.  Includes  system  diskette  and 
user's  handbook.  $39.95 
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VIDEO  BASIC 
development 


The  most  advanced 
graphics  develop- 
ment package  avail- 
able for  the  C-64. 
Adds  dozens  of 
powerful  commands 
to  standard  BASIC 
so  that  you  can 
use    the      hidden 

graphics  and  sound 

capabilities.  Commands  for  hires,  multicolor, 
sprite  and  turtle  graphics,  simple  and 
complex  music  and  sound,  hardcopy  to  most 
printers,  memory  management,  more.  Used 
by  professional  programmers  for  commerical 
software  development.  Free  runtime 
package.  Includes  system  diskette  and 
user's  handbook.  $39.95 


FORTH 
Language 
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Our  FORTH  lang- 
uage is  based  on 
the  Forth  79 
standard,  but  also 
includes  much  of 
the  83  level  to  give 
you  3  times  vocabu- 
lary of  lig-Forth. 
Includes  full-screen 
editor,  complete 
Forth-style  assembler,  set  of  programming 
tools  and  numerous  sample  programs  to  get 
you  deeply  involved  in  the  FORTH 
language.  Our  enhanced  vocabulary 
supports  both  hires  and  lores  graphics  and 
the  sound  synthesizer.  Includes  system 
diskette  with  sample  programs  and  user's 
handbook.  $39.95 
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Other  software  also  available! 

Call  now  for  free  catalog  and  the  name  of  your 
nearest  dealer.  Phone:  616/241-5510. 

Abacus  Software 

P.O.Box  7211  Grand  Rapids,  Ml  49510  616/241-5510 


mmmi 


For  fast  service  call  616/241-5510.   ^°^  postage 

and  handling,  include  $4.00  per  order.  Foreign 

orders  include  $8.00  per  item.  Money  orders  and 

checks  in  U.S.  dollars  only.  Mastercard,  Visa  and 

Amex  accepted. 

Dealer  Inquiries  Welcome 
More  than  1200  dealers  nationwide 


EU  does  not  administer  any 
final  exams.  There  is  a  practice 
exam  available  to  students,  but  it 
doesn't  replace  taking  a  proctored 
exam  at  a  nearby  library  or  college, 
which  is  given  by  the  school  accept- 
ing the  credits.  Students  also  have 
the  option  of  taking  a  CLEP  (Col- 
lege Level  Examination  Program) 
test  for  credit,  or  an  ACT  PEP  exam, 
which  is  given  by  the  American 
College  Testing  Proficiency  Exami- 
nation Program. 


Developing  a  college  course  to 
be  taught  by  computer  and 
keeping  the  material  inter- 
esting is  quite  a  challenge,  says 
Tom  Copley,  an  EU  professor  who 
formerly  taught  business  courses  at 
Antioch  College  in  Ohio.  Copley 
says  he  was  "immediately  in- 
trigued" by  the  idea  of  an  electronic 
college  when  he  first  read  about 
TeleLeaming  last  spring.  Not  only 
has  he  been  a  computer  buff  for  the 
last  10  or  15  years,  but  he  also  has 
taken  traditional  evening  school 
courses  in  the  past.  In  addition  to 
teaching  classes,  he's  now  deeply 
involved  in  developing  courses  for 
the  online  school. 

"In  the  first  place,  you're 
working  with  a  totally  different  me- 
dia, and  in  order  to  be  effective,  you 
have  to  take  advantage  of  its  ad- 
vantages. Unfortunately,  the  cath- 
ode ray  tube  is  not  nearly  as 
expressive  a  medium  [as  books  or 
lectures]."  Therefore,  he  says,  "you 
have  to  get  high  learning  impact  in 
a  small  amount  of  space." 

Copley  tries  to  focus  on  high- 
er-level questions,  the  kind  in 
which  "the  student  has  to  synthe- 
size a  lot  more  information  and 
draw  more  conclusions.  1  don't  find 
myself  using  typical  textbook  jar- 
gon— words  like  describe,  list,  dif- 
ferentiate, etc.  1  ask  for  things  that 
require  a  little  more  creative 
thought." 

One  less  obvious  advantage  to 
long-distance  learning  that  Copley 
has  discovered  is  the  opportunity  to 
respond  to  students  on  a  one-to- 
one  basis  by  E-mail,  even  though 
he  never  sees  the  student  in  person, 
"So  often  [while  teaching  in  a  tradi- 
tional college],  I've  had  to  respond 
to  so  many  students  at  once.  This  is 
the  opposite  extreme.   Every  stu- 
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dent  gets  an  individual  response, 
and  it's  not  something  off  the  top  of 
my  head,  but  a  thought-out 
response." 

But  there  are  disadvantages, 
too,  "You  lose  the  group  dynamics 
of  working  in  a  class  environment; 
some  people  find  that  very  stimu- 
lating. Of  course,  a  lot  of  educators 


Tom  Copley  predicts  that  alter- 
natives like  EU  are  "the  wave  of  the 
future."  He  says  the  opportunity  to 
take  courses  on  your  own  time,  at 
your  own  pace,  and  at  the  setting  of 
your  choice  appeals  to  certain  kinds 
of  students,  especially  those  in  re- 
mote locations  with  no  colleges 
nearby. 


Ron  Gordon,  founder  of  The  Electronic  University. 


are  critical  of  the  class  environment. 
They  say  the  students  are  being 
spoon-fed,  entertained.  There  is 
none  of  that  in  this  system.  Alterna- 
tively, though,  there  are  a  lot  of 
things  you  can  do,  like  screen  lay- 
out, to  make  it  interesting." 


Today's  EU  differs  from  the  origi- 
nal focus  of  the  university, 
which  was  to  offer  noncredit 
courses  for  personal  improvement. 
After  working  with  the  U.S.  De- 
partment of  Education,  TeleLeam- 
ing realized  there  was  an  untapped 
market  of  people  who  could  benefit 
from  an  alternative  to  traditional 
colleges. 

When  TeleLearning  first  ap- 
proached universities  with  the  idea 
of  offering  courses  by  computer, 
many  professors  were  skeptical. 
Now,  however,  the  school  is  gain- 
ing acceptance  nationwide.  By  next 
year,  founder  Ron  Gordon  hopes  to 
have  50,000  students  enrolled.  His 
ultimate  goal  is  for  the  system  to 
become  the  largest  of  its  kind  in  the 
world,  with  millions  of  students. 


EU  also  tends  to  attract  older 
students  than  traditional  universi- 
ties. The  usual  emphasis  on  under- 
graduate students  who  are  18  to  22 
years  old  doesn't  always  mesh  with 
"people  in  their  30s  who  work 
maybe  ten  hours  a  day  and  may 
have  a  family,"  explains  Copley. 
"Maybe  it's  been  a  lifelong  dream 
of  theirs  to  finish  college,  or  maybe 
their  job  depends  on  them  finishing 
a  degree.  For  them,  the  traditional 
college  life  doesn't  fit  what  they 
need.  They're  tired  after  work,  or 
they  want  the  flexibility  they  can't 
get  from  a  regular  university." 

In  the  future,  Copley  is  con- 
vinced The  Electronic  University 
will  continue  growing  as  more 
adults  find  computerized  learning 
accessible,  challenging,  and  re- 
warding. "So  many  marketing  peo- 
ple focus  on  baby  boomers,  and 
that's  where  the  market  is — adults. 
And  that's  what  undergraduate 
schools  are  finding  out." 

For  more  information  about  The  Elec- 
tronic Universit]/,  contact  TeleLearn- 
ing Systems,  Inc.,  505  Beach  Street, 
San  Francisco,  CA  94133.  © 


THE  #]  BACKUP  COPY  SYSTEM 
IS  WOW  BETTER  THAN  EVER! 


THE  AUTOMATIC  DISK  BACKUP 
SYSTEM  FOR  COMMODORE  64  SOFTWARE 


The  LATEST  breakthrough  in  copy  technology! 
Copies  NEW  custom  G.C.R.  code  protealon 
Accesses  &  copies  NEW  no-sync  data  blocks! 
Now  includes  NEW  long  data-block  logic 
Copies  normal  &  PROTECTED  data  up  to  track  40 
3  New  IMPROVED  copiersi  Includes  FAST  Copier, 
VARi-SECTOR  Copier,  and  AUTO-LOGIC  NIbbler 
Actually  copies  a  FUa  disk  in  only  2.75  minutes! 


Includes  one  FREE  Masterkey  Module! 
inexpensive  MODULE  releases  keep  you  up-to-date 
MODULES  available  individually  or  by  subscription 
Works  with  DiskMaker  TOOLKIT  and  FAT-TRACK  Kit 
Requires  standard  !541  disk  drive  or  SX-64 
Special  version  available  for  INDUS  GT  drive! 
PRODUCT  SUPPORT  tel.  #  &  future  module  updates 
You've  tried  the  rest,  now  get  the  BEST!! 


ONLY 


THE  FASTEST  NIBBLE  COPIER  YOU  CAN  BUY! 


TO  Oder  CALL  805-687- 1541  cxt.  94 

Technical  line  805-682-4000  ext.  55 
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DISKMAKER..  .THE  ONLY  COPY  SYSTEM  YOU'LL  EVER  NEED! 


3463  State  Street  •  Suite  I541F  •  Santa  Barbara  •  CA  93105 


Word  Search 


Original  Program  By  Michael  B.  Williams 


This  computerized  puzzle-maker  can 
provide  hours  of  challenging  fun. 
We've  included  versions  for  Commo- 
dore, IBM  PC/PCjr,  Apple  U-series, 
T1-99/4A,  and  Atari  computers.  A 
printer  is  required. 


You're  probably  familiar  with  word 
search  puzzles:  Certain  words  are 
hidden  in  a  rectangle  of  nonsense 
letters,  and  it's  your  job  to  hunt 
them  down.  "Word  Search"  lets 
you  create  such  puzzles  on  your 
computer's  printer  with  words  of 
your  own  choice.  Since  you  design 
the  puzzle,  you  can  make  it  as  easy 
or  as  difficult  as  you  want,  using  up 
to  100  different  words  on  some 
computers.  Topical  puzzles  make 
the  game  even  more  interesting. 
For  example,  you  might  include 
only  computer  words,  the  names  of 
foreign  cities,  or  stumpers  like  "ux- 
orious" and  "bougainvillaea."  Par- 
ents and  teachers  can  make  puzzles 
for  children  using  weekly  vocabu- 
lary lists. 

If  you're  using  an  Atari,  type  in 
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and  save  Program  8,  then  skip  to 
the  program  instructions  below.  For 
other  computers,  we've  saved  space 
by  listing  Word  Search  in  the  form 
of  one  main  program  with  separate 
line  changes  and  additions  for  each 
specific  machine.  If  you're  using  a 
Commodore,  Apple,  IBM  PC/PCjr, 
or  TI-99/4A,  the  first  step  is  to  find 
the  specific  listing  for  your  com- 
puter. Before  typing  anything,  cross 
out  every  line  in  the  main  program 
(Program  1)  that  has  the  same  line 
number  as  a  line  in  the  listing  for 
your  computer.  Then  type  in  all  the 
lines  listed  for  your  computer,  as 
well  as  all  the  lines  in  Program  1 
that  haven't  been  crossed  out. 

No  matter  which  computer 
you're  using,  save  a  copy  of  Word 
Search  and  refer  to  the  notes  below 
before  running  the  program.  The 
following  instructions  apply  to 
every  version: 

Word  Search  begins  by  asking 
you  for  the  number  of  words  to  be 
hidden.  When  you've  answered 
that  question,  the  computer  asks 
you  to  choose  the  number  of  rows 
and  columns  for  the  puzzle  grid. 
Since  the  grid  must  be  big  enough 
to  hide  all  the  words,  the  computer 
tells  you  when  you've  made  the 


grid  too   small  and  lets  you   try 
again. 

Next,  Word  Search  lets  you  en- 
ter the  words  one  by  one.  There's 
no  particular  limit  on  word  length, 
but  keep  in  mind  that  the  words 
must  fit  inside  the  grid.  (For  e 
ample,  you  can't  fit  a  12-letter  wort, 
in  a  6  X  6  grid.)  Since  longer  words 
are  harder  to  fit  into  the  grid,  the 
computer  sorts  the  words  by  length 
(from  longest  to  shortest)  so  it  can 
place  the  longest  words  first.  When 
many  words  are  involved,  this  can 
take  a  few  minutes,  so  be  patient. 

Once  the  words  are  sorted, 
you're  allowed  to  name  the  puzzle. 
You  also  have  the  option  of  printing 
the  solution  to  the  puzzle  (parents 
and  teachers  might  want  to  sepa- 
rate the  solution  from  the  puzzle 
until  the  puzzle  has  been  tried). 
After  printing  one  puzzle,  you  can 
create  another,  using  the  same 
word  list  (the  words  will  be  rear- 
ranged) or  entirely  new  words. 
Word  Search  is  designed  to  permit  a 
maximum  of  100  words  in  a  99  X  99 
grid  (exceptions  for  certain  comput- 
ers are  noted  below).  However, 
puzzles  of  that  size  can  take  a  long 
time  to  create — over  an  hour  in 
some   cases.   In   addition,   many 


'Tlinkers"  Just 
>Viaiit  To  Have  Ftui. 


Every  night,  American  PEOPLE/LINK 
subscribers  (Plinkers)  go  online  and  party 
with  other  men  and  women  of  all  ages 
and  interests  from  across  the  country  and 
the  world. 

What  do  they  do?  They  do  what  adults 
do.  They  make  dates  and  play  trivia,  they 
tell  jokes  and  argue,  they  form  clubs,  and 
even  live  out  theirfantasies.  Butthe  one 
thingtheyall  havein  common  isthatthey 
want  to  have  fun. 

Our  subscribers  develop  friendships  and 
romances  as  they  "talk  live"  (in  groups  or 
in  private)  and  send  electronic  mail  to 
each  other.  And  our  low  rates  will  show 
you  why  Plinkers  can  afford  to  have  so 
much  fun. 


To  discover  our  affordable  videotex 
entertainment,  call  or  write  us  today. 


PEOPLE/LINK 


for  the  fun  of  it. 


FAMERICAN 


PEOPLE 


American  PEOPLE/LINK 

Arlington  Ridge  Office  Center 

3215  N.  Frontage  Road  -  Suite  1505 

Arlington  Heights,  IL  60004 

1-800-524-01 00  (Toll  Free)     1-312-870-S200  (Illinois) 


1^54 
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USE  YOUR  VISA,  MASTERCARD 
OR  AMERICAN  EXPRESS. 


'JLEy  fz:z 


^ 


THE  CMO  ADVANTAGE 


^  THE  BEST  PRICES! 

^  Next  day  shipping  on  all  In  stock 
items. 

y'  Free  easy  access  order  inquiry. 

^  Orders  (rom  outside 

Pennsylvania  and  Nevada  save 
state  sales  tax, 

•'  Free  technicial  support  with  our 
factory  trained  technical  staff. 

.'  There  is  no  limit  and  no  deposit 
on  C.O.D.  orders. 

.-  There's  no  extra  charge  for 
using  your  credit  card.  Your  card 
is  not  charged  until  we  ship. 

r-  No  waiting  period  (or  cashiers 

checks. 
^  We  accept  purchase  orders  from 

qualified  corporations.  Subject  to 

approval. 

^  Educational  discounts  available 
to  qualified  institutions. 

^  FREE  CATALOG  MEMBERSHIP 


ORDER  LINE 


1-800-233-8950 

In  PA  1-800-242-4215 

CUSTOMER  SERVICE 
&  TECH  SUPPORT 

1-717-327-1450 

Dept.  A209 


Computer  Mail  Order 

Dept.  A209 

477  East  Third  Street 
Wllliamsport,  PA  17701 

MEMBER  DIBECT  MARKETING  ASSOCIATION 

CREDIT  CARDS 


<•! 


SHIPPING"^"- 

Add  3%,  minimum  S500  shipping 
and  handling  on  all  orders.  Larger 
shipments  may  require  additional 
charges. 

All  items  subject  to  availability  and 
pnce  change. 

Returned  shipments  may  be  sub- 
to  a  restocking  fee. 


1-800-268-3974 

Ontario/Quebec 

1-800-268-4559 

Other  Provinces 

1-416-828-0866 

In  Toronto 

TELEX:  06-218960 

2505  Dunwin  Drive, 

Mississauga,  Ontario 

Canada  L5L1T1 

All  prices  shown  are  for  U.S.A. 

orders. 

Call  The  Canadian  Office  for 

Canadian  prices. 
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COMPUTER 
CARTRrOGES 

S2.99 

AAB4013  ASTEROIDS 

AABS130  CAVERNS  OF  MARS 

AAB'IOZa  CENTIPEDE 

AAB4025  DEFENDER 

AABB026  DIG  DUG 

AAB8031  DONKEY  KOI^G 

AAB8039  EASTERN  FRONT 

AABe030  E.T. 

AAB40a4  GALAXIAN 

AAB401Z  rvtlSSILF  COMMAND 

AAB4022  PAC  IV1AN 

AAB40e7  QIX 

AAB400B  SPACE  INVADERS 

AA84011  STAR  RAIDERS 
AA64006  SUPER  BREAKOUT 

AAB4010  3-D  TIC-TAC-TOE 
AA68045  tilUSIC  COMPOSER 
AABB045  PENGO 
AABB0Z9  FOOTBALL 
AABBOS?  TYPO  ATTACK 

(Hepackaget)  without  instructions) 


COMPUTERS 
Atari  400  $39.99 

Atari  800  48K      $69.99 
Atari  1200  64K   $69.99 

COMPUTER  PACKAGES 

800,  810,  410, 

Basic,  Disks,  DC       ^239.00 

400,  410,  Basic,  DC  $59. ^^ 

1200,  810,  825,  850  ^379.°° 

400,  20-cart,  482  Educator 

822  *119.0<» 

(Warranty  packages  available) 
ACCESSORIES 

Flip  &  File  +  6  Cartridges S34.99 

Atari  850  Interface  Module S99.99 

Atari  835  Direct  Modem S39.99 

Atari  410  Program  Recorder S19.99 

Atari  822  Thermal  Printer S19.99 

Atari  482  The  Educator S24.99 

Atari  4B3  The  Programmer 519.99 

Atari  Basic $14.99 

Atari  Writer $14,99 

Atari  AAB4018  Pilot $9.99 

Atari  AAB7097  Logo ....$9.99 


HOME  COMPUTERS 


APPLE 

APPLE  lie CALL 

APPLE  lie CALL 

MaclNTOSH _ _ .CALL 

lie  LCD  Display CALL 

Macintosh  Softwara 

Lolutt   Jazz CALL 

MIcroioH  Excel CALL 

MIcroioft  Business  Pak S375.00 

Living  VIdaoteil 

ThinkTank  5!2- $15900 

Manhatten  Ready.  Set.  Go.,-  S79.99 
Cr«l0hton  Davalopment 

Mac  Spell      $69.99 

Monogram  Dollars  &  Sense  $99  99 
Paachtraa  Bach  10  Basics  -GLS109  00 
PFS  File  &  Report  (New  Versron)$129  00 
Silicon  Baach  Airborn $25,99 


PORTABLE  COMPUTERS 


WL^yg  HEWLETT 

mLcM  PACKAno 

41CV S189.99 

41CX $249,99 

HP  riB S419.99 

HP  lie $62,99 

HP    12Cn5C/16C $89.99 

HP  75D $999,99 

HPIL  Module $98.99 

HPIL  Cassette  or  Printer $359.99 

Card   Reader      $143.99 

E)tiendeo  Function  Module     .    $63.99 
Time  f^odule  $63  99 

We  (tock  the  lull  Una  of 
HP  calculator  product* 


SEC 


PC-8401 CALL 

PC.S201  Ponablfi  Computer-  ,.$289,00 

PC-8231  Disk  Drive $599  00 

PC-B221A  Thermal  Printers        $149  00 
PC-8281A  Data  Recorder  $99  99 

PC-a201-06  BK  HAM  Chips        $105  OO 

SHARP 

PC-13S0 $159  99 

PC-1261  $159  99 

PC-1260        $109  99 

PC-1500A $165  99 

PC-1250A $88  99 

CE-125  PrmlerfCasselle  S12B99 

CE-ISO  Coloi  Printer  Casselte  $171  99 
CE-161   16K  RAM $13499 


f  S  commndeare 

0128  Ckinipiiler INEW 

C1571  lOlsli  Orive  lor  C12S) SNEW 

C19C2  (RCe  13"  Monitor  lor  C12S)....$NEtW 
C1B7D  (KlodBm  lor  ClZt) SNEW 

SX.64   Portable .,,, CALL 

Commodore  Plus  4.... S199.00 

CBM   64,..,. $149,00 

C1541   Disk  Drive S199.00 

C1530  Daiaseite... $39.99 

M-BOi  Dot  Matrix  Printer $189.00 

M-802  Dot  Matrix/Serial S219.00 

MCS  803  Dot  Matnx $179.00 

C1802  Color  l^onitor $199.00 

C1660  Auto  Modem $59.99 

DPS   not   Daisy  Primer  $339.00 


DISKETTES 


maxell. 

3Vj"  SS/DD $39.99 

3Vj"'  DS/DD $54.99 

SV."  MD-1  w/Hardcase  $17.99 

5Vj"  MD-2  w/Hardcase  S23.99 

5V)"  lvlD-2-HD  for  AT S44.99 

i"  Verbatim. 

5Vj"  SS/DD    $21  99 

SVj-  OS/DD $29  99 

Disk  Analyzer $24  99 

Elephant  5'A"   SS/SD $13.99 

Elephant  S'A"  SStOD $16.99 

Elephant  SV4 "  DS(DD  ..$16,99 

Eleptiant  Premium  OSIDD $23.99 

SVj"  DS'DD  Floppy  Disks 
(Box  ot   10) $25.99 

DISK  HOLDERS 

INNOVATIVE  CONCEPTS 

Flip.|n-File   10 $3.99 

Flip-in-FilB  50 $17,99 

Flipih-FilB  50  w/lock S24,99 

Flip-in-FilB  (400;eOD  ROM) $11.99 

AMAIUV 

50  Disk  Tup  Si/<" $9,99 

30  Oist(  Tub  3'/!" $e,99 

g\imi(.iiiiiiin\c 

Wood  Disk  Holders CALL 


MODEMS 


iPNCHOR 

Volksmodem,.. $59.99 

Volksmodem  300/1200.   ,. $189.99 

IMark  XII  (1200  Baud] $259.00 

Signalman  Express $299.00 

Lightning  2400  Baud $399.00 

(DHayes 

Smartmodem  300 $145.00 

Smartmodem  1200 $389,00 

Smartmodem  1200B $359.00 

Smartmodem  2400 $699.00 

Micromodem  lie $249.00 

Smart  Com  II .$89,99 

Ctironograph $199.00 

Transei   1000 CALL 

Reach  1200  Baud  Hall  Card     $399  00 

m»  miCROBITS 

MPP-IOOOE  AD;AA  (Atari) $79.99 

MPP-1064  AD/AA  IC.64) $69.99 


Smart  Cat  Plus $319,00 

J-Cal $99.99 

l^avation  2400 CALL 

Apple  Cat  II. ,.,,$229,00 

212  Apple  Cat  tl.-..- $379,00 

Apple  Cat  212  Upgrade ..,$22900 

Macmodem,, $319,00 

Quadmodem  II 

300(1200 $339.00 

300/1200/2400 $499.00 

TELELEARNINQ 

C64  300  BauP (Cioseout) $39.99 


GRAPHICS 


•oPMoala 

IBM $89.99 

Apple/Franklin $79.99 

■Polaroid 

Palette $1299.00 


DRIVES 


HARD 
MiXJV 

PC    Stor        CALL 

II)EA.»otiaiei 

5   meg  Removable/lnlernal $1399  00 

10  meg  FixedMhiernal   $1249  00 

15  meg  5  RemovableMO  FixedS2149  00 
25  meg  5  Remavahle/20  Fixed$2499  00 

10  Meg  Bernoulli  Box,  $2099  00 

20  meg  Bernoulli  Box $2599. OC 

5  meg  "MacNoulli"  ,    $1599,00 

TAILDIIASS 
TICHNOLOOKS 

12   25,  3S.  60.  80  meg  IPC) 

Irom  $1499  00 

FLOPPY 

Indus 

Apple   GT $209,00 

Atan  GT $239  00 

C-64  GT $259,00 

A1,5  Apple $199,00 

A2       Apple     $199,00 

501  C-64  Single .,,$219.00 

502  C-64  Dual $469.00 

landon 

320K  SVi'-  (PC) $119.00 

TEAC 

320K  5'A $119.00 


MONITORS 


Amcek 

300  Green S129.Q0 

300  Amber S139.00 

310  Amber  IBM-Plug S169.00 

Color  300  ComposilB .5239.00 

Color  500  Composile/RGB S389.00 

Color  600  Hi-Res  (640x2401 S399.O0 

Color  700  Hi-Res  (720x2401 S499.00 

Color  710  Long  Phosphor $579.00 

12"  Amber/Green  Composile S99.99 

I2"  Amber/Green  TTL (ea.)S119.00 

NEC 

JB  1260  Green $59.99 

JB  1201/1205  (ea.) S99.99 

JB  1270  Green S139.00 

JB  1275  Amber $149.00 

JB  12S0  G  TTUIZeS  A  TTL $149.00 

JC   U10  RGB S6B9.00 

PRINCETON 

MAX-12E  Amber S189.00 

HX-9  9"  RGB S469.00 

HX-9E  Enhanced S519.D0 

HX-12  12"  HGB $469.00 

HX-12E  Enhanced $559.00 

Sn-ia  Hi-Res S599-00 

SR-12  P  Enhanced S649.00 

rnxsocxM 

115  12"  Green  Mono S119.00 

116  12"  Amber  Mono S119.00 

121  Green  TTL S139.00 

122  Amber  TTL Sl-tS.OO 

420  Hi-Res  RGB  (IBMf $429.00 

440  Ullra  Hi-Res  RGB $559.00 

6400  Ouadchrome  I $479,00 

8410  Ouachrome  II.,.,... $429.00 

6420  Amberchrome $179.00 

6500  Quad  Screen $1499.00 

ZVM   122/123 $79.99 

ZVM  124  IBM  Amber. S149.00 

ZVM  130  Color $269.00 

ZVM  131  Color $249.00 

ZVM  133  RGB  $429.00 

ZVM  135  RGB/ColOf $459.00 

ZVM  136  RGS/Color $599,00 

1220,  1230.   1240 CALL 

Graphcard.,  "^rTTrrr: $79.99 

Serial!  Card $99.99 

Microbuffef  II  + $169  00 

MicrobuHer  32K $189,00 

Wicrofarer Irom  $139.00 

Efazsr  (Epson) from    $79  99 

^Orange  ITlkro 

Grappler  CD  (C64) $99.99 

Grappler  +  (Apple) $89,99 

Grappler  I6K1,  (Apple) 5159.00 

DIGITAL  DEVICES 

Ape  Face  (Alan) $49,99 

U-Prinl  A  (Alari) $54,99 

U-Aie/Bufler  (Alari) $74,99 

U-Ca!l  Interface  (Atari) $39,99 

U-Print  C  (C64) $49-99 

P-16  Prim  BuHer $74,99 

fTWP  miCROSITS 

MPP-llSO  Parallel  (Alari),,,.,.  ,  .,$69,99 

MP-1150XL  (Atari  1200XL) $69,99 

MicroSluRer  64K  Print  SuKar..  $109.00 


PRrNTERS 


PC  COMPATIBLES 


INTERFACES 


AT-100  Alan  Interface  Printer... $139, 00 

AT-550  Alari  Dual  Mode $249.00 

GP-100  Parallel  Interface 5189.00 

GP-7CW  Color  Primer 5449.00 

GP-S50  Parallel  Printer $239.00 

Elite  S  Latlar  Quality $239.00 

Elite  5  C64  IntBrtace $249.00 

Penman   3-pen $289,00 

#CITIZEN 

MSP-10  (80  col.) 5349.00 

MSP-15  (132  col.) 5499,00 

MSP-20  (80  col.) $489.00 

MSP-25  (132  col.) $679.00 

cmoH 

Prtjwriter  7500 $219,00 

Pfowriter  8510P $299,00 

Prowrlter  8510  NLQ $329,00 

Prowriter  1S50P $469,00 

F10-40P  Starwriter $869,00 

FlO-55  Printmaster,,-. $1049.00 

Prowriler  S510-NLO $329.00 

corona 

Lazer  LP-300 $2799,00 

DIABLO 

D25  Daisywheel $599.00 

630-109  Dais/Wheel $1749.00 

DBOiF  Daisywhee! CALL 

dfeywriter 

2000.... $749.00 

EPSON 

LX-80.  LX-90.  FX^5,  FX-185 
JX-80,  DX-10,  DX-20,  SO  2000 
HS-80.  Hamewriler  10 CALL 

UUKI 

6000  Letter  Quality CALL 

6100  Letter  Qualily ....CALL 

6300  Letter  Quality CALL 

SEC 

8027  Transportable S299.00 

2000  Series $699.00 

3000  Series $1099.00 

BOOO  Series ..$1449.00 

ELF  360 5449,00 

OKiDAlA 

84,  182.  192,  193,  2410 CALL 

Okimase  10  (Specify  C64;Alarl)$  189,00 
Okimate  20  (IBM) , CALL 

OLYMPIA 

Needlepoint  Dot  Matrix $299,00 

Compact  RO $339,00 

Compact  2 $369.00 

l^nasonic 

KX1091 $259.00 

KX1092 5369.00 

KX1093 $479.00 

(3JADfWl^ 

Quadjet $399.00 

^Slt^ER-RE€0 

500  Letter  Quality $279,00 

560  Letter  Quality $419,00 

770  Letter  Quality $759,00 

SG-10C        (C64        Interface). $NEW 

SB;SD/SG/SR  Series CALL 

Powefiype  Letter  Quality CALL 

TOSHIBA 

1340  (80  column) $599.00 

P351  (132  column) S1299.00 


IBM  PC  SYSTEMS 

Configured  to  your 

specif  rcation. 
Call  for  Best  Price! 

IBM-PC,  IBM-PC  It,  IBM-XT,  IBM-AT 


SOFTWARE  FOR  IBM 


Electric  Desk  IBM-PC $199.00 

A^HTON-TATCB 

Framework,., $369.00 

dBase  III $369.00 

BBOfllPOD 

Turbo  Pascal  3.0 $49.99 

Sidekick $39.99 

CENTRAL  POINT 

Copy  II  PC-Bai:kup $29.99 

DECISION  RESOURCES 

Cbartmaster $259.00 

Signmaster ,,,.$179,00 

FOX  a  OELLER 

Quickcode  III... $169.00 

FUNK  SOFTWARE 

Sideways $39.93 

^  HuTMU-d  Soflwiui:  Inc. 

Harvard  Project  Manager $209.00 

Total  Proiect  Manager $269.00 

Human  Edge™ 

Communication  Edge $99.99 

Management  Edge $119.00 

Negotiation  Edge 5139.00 

Sales  Edge $119.00 

UFETHEE 

Volkswriter  Diiluxe ..$159.00 

LIVING  VtOEOTEKT 
Think  Tank $109,00 

#Lotus 

Symphony $439.00 

1-2-3 , $309.00 

MECA  SOFTWARE 
Managing  Your  Money $109.00 

Crosstalk  Xvi $89,99 

MicrostuI  Remote $89,99 

RiBase  4000 $259,00 

R:Bbse  5000 $399,00 

Cloul  2,0 , 5129,00 

BHH  Mici  uPi  u 

WordStar  2000 $249,00 

WordStar   2000 -t $309-00 

WordStar  Professional $299.00 

Word M"*^^***??^: $239,00 

Mouse 5139.00 

Flight  Simulator 539.99 

MulliPlan -5129,00 

BibiltiMate 

Muiti  Mate  Word  Proc 5249.00 

NOUMENON 

Intuit $69.99 

NORTON 

Norton  Utilitios  3,0.- $59.99 


PaachlBxt  5000 $169,00 

PeachPack  (GL/AP/AR) ,,.$219,00 


j^: 


IBM<APPLE 

Access 554,99 

Wtite/GrapWFile/Plan (ea).$79.9g 

Report ,.. $74.99 

Proof 559,99 

Profes^onal  Software 

WordpluS-PC  w/Bdss $249.00 

ROSESOFT 

Prokey ,,. $89.99 

THE  SOFTWARE  GROUP 

Enable $339,00 

SATELLITE  SYSTEMS 
Word  Perlect  40---- $219.00 

SOflCIM/IUS 

Accounting 

AP/AR/GUINV/OE (ea)   $295.00 

SuperCalc  III $195.00 

EasyWriter  II  System $195.00 

Super  Project $195.00 

sn 

Open  Access ....$379.00 

THOUOHTWARE 

Trigger.- $289.00 

Sell,  Sell,  Sell 

Training .,$299,00 

Application $1 79.00 


Satan  (7300) CALL 

6300 CALL 

corona 

PPC4a0  Dual  Ponable $1799  00 

PPCXT  10  meg  Ponable 52399,00 

PC40022  10  meg  Desktop 51999,00 

ITl 

ITT  X-TRA  ^^-^ 

256K.  2  Dnve  System CALL 

256K,  10  meg  Hard  Drive  SystemCALL 

^ SANYO 

MBC  550-2  Single  Drive $699,00 

Mac  555-2  Dual  Drive $963  OO 

MBC  775  Ponable $1599.00 

MBC  511  10  meg CALL 

MBC  675  Ponable CALL 

MBC  880  Desktop CALL 


r~4j|>i-:4^fu.- 

PC-151-21  Single  Desktop CALL 

PC-151-52  Dual  Desktop CALL 

PC-151-53  10  meg  Desktop CALL 

PC-161-21  Single  Ponable.... CALL 

PC-161-52  Dual  Portable CALL 

Z-aOn   (AT) CALL 

171  (Portable) ^j,^ CALL 


/isr 

Six  Pack  Plus., 5239.C 

Mega  Plus  II $269,1 

i;0  Plus  II S139,( 

Acfvaniage-AT 5399,1 

Graph  Pak $599-t 

Monograph  Plus $399. ( 

Preview  Mono.... ..,..,.,. ,S299.C 

PC  Net  Cards 5379.( 

5251/11  On-line $799.t 

5251/12  Remote S579.( 

3780  Emulation  Card $639. C 

BSC  Bisync $489,C 

IRMA  3270.,.,~.TT.~. 5a79.C 

IRMA   Print-,-- S999,C 

=^VEREX- 

Coior  Card  (Graphics  Edge) S299.I: 

Magic  Card Siag.c 

HERH'Lt'^ 

Graphics 5299. C 

Color 51591 


isoaatts 
IDEAmax  -  ZPR.  64K.  C.  S,  P.$229.00 

IDEAmini  .  YPR.  C.  S.  P $189.00 

IDEAminimax  -  MPR  128K $229.00 

IDEAshare  Soltvirare S219.00 

IDEA   5251 5699,00 

MYLEX 

The  Chairman $489.00 

PARADISE 

Modular  Graphics  Card $274. ( 

Mulli  Display  Card $269. C 

Five  Pack  C.  S S159.C 

PERSYST 

Bob  Board S3B9. 

PLANTRONtCS 

Color  Plus $359. 


Captain  ■  64 5239 

Captain  Jr.  128K 5339 

Graphics  Master S469 

Ouadporl-AT $119 

Quadmeg  -  AT  (128K) $349. 

The  Gold  Ouadboard S449. 

The  Silver  Ouadboard.,,- $239, 

Expanded  Quadboard 521 9, 

Quad  512-I- 5229. 

Liberty S309 

QyadSprint S499 

OuadLink 3399 

QuatJcolor  1 $199 

QuadJr,  Expansion  Chassis $469 

Expansion  Chassis  Memory 5199 

QuatJmem.  Jr 5199. 

Chronagraph ,...$79. 

Parallel  Interface  Board $64. 


?n 


^^ 


1234567B9012345&7S90 

1  YARRAHPDRZERRNVPSSJQ 

2  GYSJLEJDRLIIWBRBDXVC 

3  NCOUAXUXNYRANIBQSNKR 

4  ITRHMADBZMEMORYAPPLE 

5  ROTLODSASETYBAGIGIPC 
h  TAIPCEVARIABLESQYVCA 
7  SZNHLCMHPRINTERSOTCZ 
B  XMGDAINDISKDRIVECIMP 
■9  GSOSCMLACLOGOFYHSHQY 

10  PGTWSAEONBRBDCFAWCII 

11  EESZALMVCOAOQPBGZLBX 

12  ZRBSPMAATOSNPMLLKKWW 

13  QCUCODOITIMEFBLDPMRP 

14  XFYDGFNGNAHPCIPBASTF 

15  KBOLXDVTDURVUGNDUZJC 

16  VRTAMZUYCEEIBTNCXFMX 

17  EJENITUGRBUSBWEDXZPZ 

18  PKHAVBAVFLDKXGBRETDW 

19  VECAFRETNIAYKJKDAPMF 

20  MYEAIOZFJTSIZSDKQXZY 

"V^ord  Search"  prints  out  challenging 
hidden-word  puzzles  of  various  sizes  on 
your  printer. 


printers  can't  print  more  than  80 
columns  unless  you  first  send  the 
printer  a  special  escape  code  for 
condensed  type  (see  your  printer 
manual). 

Commodore  Versions 

The  line  changes  listed  as  Program 
2  are  for  the  Commodore  64,  128, 
Plus/4,  16,  PET,  and  VIC-20  (with 
at  least  8K  expansion).  If  you're 
using  a  VIC  with  only  8K  expan- 
sion, type  in  the  line  changes 
shown  in  Program  2  and  also  sub- 
stitute lines  95  and  100  in  Program 
4.  If  you're  using  a  Commodore  16, 
type  the  line  changes  from  Program 
2  and  also  substitute  lines  95  and 
100  in  Program  3.  The  VIC  with 
only  8K  expansion  can  hide  a  maxi- 
mum of  50  words  in  a  50  X  50  grid; 
the  16  is  limited  to  a  maximum  of 
60  words  in  a  60  X  60  grid.  If 
you're  using  a  PET,  you'll  have  to 
make  similar  adjustments,  depend- 
ing on  the  amount  of  memory 
available. 

Apple  And  IBM 

The  Apple  version  of  Word  Search 
runs  on  any  Apple  Il-series  com- 
puter with  either  DOS  3.3  or 
ProDOS.  Follow  the  general  in- 
structions above,  typing  in  the  line 
changes  listed  as  Program  5.  IBM 
users  should  enter  the  line  changes 
in  Program  6;  this  version  runs  on  a 
PC  or  PCjr  with  any  memory 
configuration. 
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Tl  Word  Search 

Program  7  lists  the  line  changes 
required  for  TL  The  unexpanded 
TI-99/4A  is  limited  to  50  words  in  a 
50  X  50  grid.  However,  with  mem- 
ory expansion  this  number  can  be 
increased  by  changing  the  value  of 
MC  in  line  95  from  50  to  the  desired 
value.  You  will  also  need  to  in- 
crease every  occurrence  of  50  in  line 
100  to  the  same  value.  Adjust  line 
2000  for  whatever  configuration 
your  particular  printer  requires. 

Atari  Version 

The  Atari  version  of  Word  Search  is 
complete  in  itself.  Simply  type  in 
Program  8,  save  a  copy,  and  run  it. 
Ataris  with  32K  or  48K  memory  can 
create  puzzles  with  up  to  100  words 
in  a  99  X  99  grid.  If  your  Atari  has 
16K,  you're  limited  to  25  words  in  a 
25  X  25  grid.  To  run  Word  Search 
on  a  16K  Atari  you  must  make  two 
additional  changes  in  line  100  of 
Program  8:  Change  the  99  and  the 
100  to  25. 

Program  1 :  Word  Search 
(Main  Program) 

Version  By  Patrick  Parrish, 

Programming  Supervisor 

Please  refer  to  the  article  instaictions  before 
entering  this  listing. 

95    MC=99 

100    DIM   FF$(100),S$(99) ,W$(100 

),CC(100),RR{100) ,L(100),E 

5(2,2) 
110  FOR  I=-l  TO  1 
120  FOR  J=-l  TO  1 
130  READ  E$(I+1,J+1) 
140  NEXT  J 
150  NEXT  I 
160  DATA  "NW","  N","NE","  W," 

{2  SPACES)","  E","SW","  S" 

,"SE" 
170  FOR  1=1  TO  MC 
180  G$=G?+"  " 
190  NEXT  I 
200  FOR  1=1  TO  8 
210  READ  D(1,I),D(2,I) 
220  NEXT  I 

230  DATA  -1,-1,-1,0,-1,1,0,-1 
240  DATA  0,1,1,-1,1,0,1,1 
250  GOTO  12  20 
260  REM  SHELL  SORT 
270  PRINT  "SORTING ..." 
280  X=l 
290  X=2*X 

300  IF  X<=W0  THEN  290 
310  X-INT(X/2) 
320  IF  X<>0  THEN  340 
330  RETURN 
340  FOR  Y=l  TO  W0-X 
3  50  Z=Y 
360  A=Z+X 

370  IF  L(Z)>=L(A)  THEN  460 
380  X5=W5(Z) 
390  W5(Z)=W?(A) 
400  W5(A)=X? 
410  B=L(Z) 
420  L(Z)=L(A) 
430  L(A)=B 
440  Z=Z-X 
450  IF  Z>0  THEN  360 


460  NEXT  Y 

470  GOTO  310 

480  REM  HIDE  WORDS 

490  FOR  X=l  TO  W0 

500  FOR  Y=l  TO  50 

510  R1=INT(RND(1)*R0) 

520  C1=-INT(RND{1)*C0) 

530  D1=INT(RND(1)*8)+1 

540  01=D1 

550  DX=D(1,D1) 

560  DY=D(2,D1) 

570  IF  R1+DX*L(X)<1  OR  R1+DX*L 

(X)>R0  OR  C1+DY*L(X)<1  THE 

N  590 
580  IF  C1+DY*L(X)<=C0  THEN  630 
590  D1=D1*(D1<8)*(1=1)+1 
600  IF  DIOOI  THEN  550 
610  NEXT  Y 
620  GOTO  800 
630  FOR  Z=l  TO  L(X) 
640  IF  MID5(W5(X),Z,1)<"A"  OR 

( SPACE )MID?(W$(X) ,Z,1)>"Z" 
THEN  680 
650  R1=R1+DX 
660  C1=C1+DY 
670  IF  MID$(S5(R1),C1,1)<>"  " 

[SPACEJAND  HIDS(S$(R1),C1, 

1)<>MID5(W?(X),Z,1)  THEN  5 

90 
680  NEXT  Z 

690  FOR  Z=L(X)  TO  1  STEP  -1 
700  IF  MID?(W5(X) ,Z,1)<"A"  OR 

fSPACE3HID$(W5(X) ,Z,1)>"Z" 
THEN  7  70 
710  SS(R1)=HID$(S?(R1),1,C1-1) 

+HID$(W?(X) ,Z,1)+MID$(S$(R 

1),C1+1) 
720  RR(X)=R1 
730  CC(X)=C1 

740  FF${X)=E?(DX+1,DY+1) 
750  R1=R1-DX 
760  C1=C1-DY 
770  NEXT  Z 
780  NEXT  X 
790  GOTO  890 
800  GOSUB  1720 
810  PRINT  "SORRY,  BUT  I  CAN'T 

{SPACE} FIT  WORD  NUMBER  ";S 

TR5(X)r"  ,  ";W5(X):"  ,  "; 
820  PRINT  "INTO  THE  GRID.  SHOU 

LD  I  SKIP  IT,  START  OVER, 

( SPACE }0R  TRY  AGAIN" 
830  INPUT  X? 
840  IF  MID$(X$,1,2)="ST"  THEN 

(SPACE) 1660 
850  IF  MID$(X$,1,2)="TR"  THEf^ 

(SPACE) 500 
860  IF  MID5(X?,1,2)<>"SK"  THEN 

830 
870  W5(x)="/" 
380  GOTO  780 
890  FOR  X=l  TO  R0 
900  FOR  y=l  TO  C0 
910  IF  HID$(S?(X},Y,1) <>"  "  TH 

EN  9  30 
920  S5(X)=HID?(S?(X),1,Y-1)+CH 

R$(INT{26*RHD(l)+65) )+MID5 

{S$(X),Y+1) 
930  NEXT  Y 
940  NEXT  X 
950  REM  DONE 
960  PRINT 

970  PRINT  "I  AM  FINISHED.  WHAT 
DO  YOU  WANT  TO  CALL  THE  W 

ORD  SEARCH" 
980  INPUT  T? 
990  SL=0 
1000  PRINT 
1010  PRINT  "DO  YOU  WANT  TO  PRI 

NT  THE  SOLUTION  (Y/N)" 
1020  GOSUB  1180 
1030  IF  A5="N"  THEN  1050 
1040  SL=1 


The  complete  1541  enhancement  system 


Mik^OS 


MAKES 
GREAT  COFFEE!! 


The  1541  is  the  slowest  disk  drive  on  planet  earth. 
Even  simple  operations  seem  to  take  forever.  Quickloaders 
and  Fastload^rs  that  software-patch  the  operating  system 
are  vulnerable  to  being  knocked  out  of  memory,  rendering  them 
totally  useless.   Even  Flashier  products  that  require  permanent 
modifications  to  the  64  and  1541  can't  compete  with  the  blinding 
speed  of  STARDOS. 

STARDOS  accelerates  every  (yes,  we  said  every)  function  of  the  1541  disk  drive. 
Other  fast  loaders  only  load  PRG  files  faster.  STARDOS  also  speeds  up  SEQ,  REL,  USR 
and  DIRECT  ACCESS  files.  Everything  including  FORMAT,  VERIFY,  SCRATCH,  VALIDATE, 

INITIALIZE  and  COPY  are  much  faster.  In  addition  STARDOS  adds  a  vast  array 

of  easy  to  use  commands  and  utilities  all  at  the  touch  of  a  key. 


A  sampling  of  STARDOS  features: 

•  Accesses  ALL  types  of  files  up  to  1,000%  faster! 

Saves  up  to  300%  faster  than  normal  (with  extended 
verify) 

•  DOES  NOT  CHANGE  THE  SPEED  AT  WHICH  THE 
DRIVE  MOTOR  SPINS 

Makes  your  1541  MORE  RELIABLE  and  LESS  PRONE 
TO  BREAK  DOWN  or  OVERHEAT! 

-  STARDOS  is  fully  expandable  for  multiple  fast 
disk  drives 

•  Easy  (5  minute)  plug  in   installation.    User  friendly 
manual 

-  100%  compatible  with  software  and  serial  bus 
peripherals 

Adds  years  of  life  to  your  disks  and  drive  in 

reduced  wear 

Cures  a  number  of  bugs  in  the  Commodore  64  and  1541 

disk  drive  including  : 
The  damaging  'Head  Knock'  that  can  mis-align 
your  1541  ,;;  „    , 


•  The@:  Save  with  replace  bug!!   ' 

•  The  Editor  lock-up  bug 


Harness  the  full  power  of  your  disk  drive  with  the 

built  in  DOS  wedge 

Lock/unlock  files  and  protect/unprotect  disks  from 

the  keyboard 

Powerful  sector  editor  allows  direct  viewing  of  diskette 

Upgrades  computer  and  drive  to  the  latest  Commodore 

specifications 

Instant  access  to  the  built  in  miniwordprocessor 

for  short  notes  and  memos 

Built  in  copier  copies  all  file  types  (even  relative) 

easily  and  effectively 

Built  in  disk  duplicator  copies  an  entire  diskettte 

in  less  than  3  minutes 

Fully  expanded  machine  language  monitor,  always 

on  line 

Quality  hardware.  Full  120  day  repair  or  replace 

warranty  \ 

Satisfaction  guaranteed  or  money  back— no  questions 

asked 

(Oh,  by  the  way,  we  lied,  STARDOS  makes  LOUSY 

COFFEE) 


Simply  the  best.  $74.95 
[Take  advantage  of  our  introduction  special  at  $64.95] 


Personalize  your  064!  for  a  S10  (non-refunclable)  charge 
we  will  include  a  21  character  power-on  message  with 
your  favorite  screen,  border  and  text  colors.   Example: 


MJI    K  B    '   S]     C  0  M  M  0  D  OJR.  E|-   6-  V 


R^rkgroiinfl       Rl^cK  Border       ffgc/ 


Text    C^g'i 


Write  of  phone  for  additional  information. 

'Trademark  of  Commodore  Business  Machines 


/ 


WRITE  OR  PHONE 


STffrRPOIMT  SOFTWARE 


Star  Route  10 


Gazelle,  CA  96034 


[91  6]  435-2371 


When  ordering  by  mail: 

•  $64,95  +  3.00  stnipping 

•  S64.95  +  4.00  COD  orders 

•  Shipping  out  of  USA  S6.00 


•  Calif,  residents  add  6%  sales  tax 

•  VISA  or  Mastercard  accepted 
Please  allow  4-6  weeAs  tor  delivery. 


1050 
1060 

1070 
1080 

1090 
1100 
1110 
1120 
1130 

1140 
1150 
1160 
1170 
1180 
1190 

1200 
1210 
1220 

1230 
1240 
1250 

1260 
1270 
1280 
1290 
1300 
1310 
1320 


1330 
1340 
1350 


1360 
1370 
1380 
1390 
1400 

1410 
1420 
1430 
1440 

1450 
1460 

1470 
1480 
1490 
1500 


1510 
1520 
1530 

1540 

1550 


1560 

1570 
1580 
1590 

1600 
1610 

1620 
1630 
1640 
1650 
1660 
1670 

1680 

1690 


GOSUB  2000 

GOSUB  1720 

F=0 

PRINT  "DO  YOU  WANT  ABOTHE 

R  GRID  (Y/N)" 

GOSUB  1130 

IF  A$="Y"  THEN  1120 

END 

PRINT 

PRINT  "DO  YOU  WANT  TO  USE 

THE  SAME  WORDS  (Y/N)" 
GOSUB  1180 
IF  A$="N"  THEN  1280 
F=l 

GOTO  1340 
INPUT  A$ 

IF  A$<>"Y"  AND  A$<>"N"  TH 
EN  1180 
RETURN 

REM  INITIALIZATION 
GOSUB  1720 
LL=6 

GOSUB  1740 

PRINT  "(8  SPACES IWORD  SEA 
RCH" 
LL=4 

GOSUB  1740 
FOR  1=1  TO  W0 
W5(I)="" 
L(I)=0 
NEXT  I 

PRINT  "HOW  MANY  WORDS  UOU 
LD  YOU  LIKE  IN  YOUR  WORD 
(space) SEARCH" 
INPUT  H0 
PRINT 

PRINT  "HOW  MANY  ROWS  AND 
(SPACE) COLUMNS  IN  THE  GRI 
D" 

INPUT  R0,C0 
PRINT 
PRINT 

IF  R0*C0>=10*W0  THEN  1440 
PRINT  "I  DON'T  THINK  I  CO 
ULD  DO  THIS." 
FOR  1=1  TO  1000 
NEXT  I 
GOTO  1340 

PRINT  "I  THINK  I  CAN  DO  T 
HIS." 

IF  C0<=HC  THEN  1470 
PRINT  "(BUT  IT  WON'T  FIT 
(SPACEJON  THE  PAPER.)" 
IF  F=l  THEN  1660 
LL=3 

GOSUB  1740 

PRINT  "ENTER  THE  "fSTR$(W 
0);"  WORDS.  TO  CORRECT  A 
( SPACE JhISTAKE,  enter  X" 
PRINT 

FOR  1=1  TO  W0 
PRINT  "WORD  NUMBER  " ; I ; " ! 

N 

INPUT  X$ 

IF  LEN(X$)<=R0  AND  LEK(X5 

)<=C0  AND  X5<>"X"  THEN  16 

10 

IF  X5<>"X"  THEN  1590 

I=I-(1>1)*(1=1) 

GOTO  1530 


PRINT  "OOPS. , 

TOO  LONG . " 
GOTO  1530 
W5(i)=x? 

L(I)=LEN(X$) 
NEXT  I 
GOSUB  1720 
GOSUB  270 
PRINT 
PRINT  "OKAY, 


.THE  WORD  IS 


I  WILL  GO  TO 


WORK  (WISH  HE  LUCK...)." 
FOR  I-l  TO  R0 
S5(I)=LEFT$(G?,C0) 


1700  MEXT  I 

1710  GOTO  490 

1730  RETURN 

1740  FOR  1=1  TO  LL 

17  50  PRINT 

1760  NEXT  I 

1770  RETURN 

1999  REM  PRINTER  ROUTINE 

Program  2:  Line  Changes 
For  Commodore  64,  1 28, 
Plus/4,  16,  PET,  and  VIC-20 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  published  bimonttiiy  in  compute!. 

17  20  PRINT  CHR$(147)    : rem  69 

2000  OPEN3,4:PRINTt3,T9!PRINT# 
3  rrem  101 

2010  PRINT#3,"{4  SPACES)"; :FOR 

I=lTOC0sIFl/l0<>INT(l/10) 

THENPRINT#3 , "  " ; :GOTO2030 

:rem  101 

2020  PRINT#3,HID5(STR5(I) ,2,1) 
;  :rem  207 

2030  NEXTl!PRINT#3     jrera  10C 

2040  PRINT#3,"(4  SPACES) "; sFOR 
I=1TOC0 : PRINT#3 , RIGHT$ ( ST 
R?  ( I ) , 1 )  • iNEXTI : PRINT#3 

: rem  172 

2050  FORX=1TOR0:IFX<10THENPRIN 
T#3,  "    ";  :rem   20 

2060    PRINT#3,STR$(X)"     "f 

:rein   28 

2070  FORY=1TOC0!PRINT#3,MID?(S 
5(X)  ,Y,1)  ;         :reni  98 

2080  NEXTYsPRINT#3!NEXTX:PRINT 
#3 :PRINT#3 ;PRINT#3, "WORD 
(SPACE)LIST:"     : rem  201 

2090  FORX=1TOW0:IFW9(X)="/"THE 
N2110  trem  50 

2100  PRINT#3,WS(X)     rrem  246 

2110  NEXTX!F0RI=1T05:PRINT#3:N 
EXTI : I FSL=0THEN2180 

:rem  185 

2120  PRINT#3, "SOLUTION  LIST:"! 
PRINT#3, "W0RD(21  SPACESJR 
0W(3  SPACES) COLUMN"; 

srem  213 

2130  PRINT#3,"{3  SPACES) DIR" 

!"  :rem  248 

2140  FORX=1TOW0:IFW$(X)="/"THE 
N2170  :rem  52 

2150  PRINT#3,W?(X);LEFT$(G$,25 
-LEN(W?(X))) ;RR(X);LEFT5( 
G? , 8-LEN( STR$ ( RR( X) ) ) ) ; 

:rem  218 

2160  PRINT#3,CC(X)  ,•LEFT?(G5,6- 
LEN(STR9(CC(X)  ) ));FF5(X) 
:rem  61 

2170  NEXTX  :rem  97 

2180  CLOSES: RETURN     :reni  142 

Program  3:  Additional  Line 
Changes  For  Commodore  16 

95    MC=60 

100  DIM  FFS(60)  ,S$(60),VJ5(60)  , 
CC(60),RR(60),L(60),E?(2,2 

) 

Program  4:  Additional  Line 
Changes  For  8K  VIC-20 

95  MC=50  irem  160 

100  DIM  FF${50),S$(50},W5(50), 

CC ( 50 ), RR( 50 ), L ( 50 ) ,E5( 2, 2 

)  : rem  25 


Program  5:  Line  Changes 
For  Apple 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonthly  in  computei. 

18  90  D*    -    CHR«    (4):  I*    =    CHR«    (9 

) 
K   1720  HOME 
El  2000  PRINT  D*5"PR#1":  PRINT  I 

»;"80N" 
9E  2010  PRINT  T«:  PRINT 
3F  2020  PRINT  "    ";:  FOR  I  =  1 

TO  C0I  IF  I  /  10  <  >  INT 
(I  /  10)  THEN  PRINT  "  " 

; 2  GOTO  2040 
lA  2030  PRINT  MID*  (  STR*  CI),1, 

1); 

77  2040  NEXT  1:  PRINT 

98  2050  PRINT  "    ";:  FOR  I  =  1 

TO  C01  PRINT  RIGHT*  (  ST 

R«  <I),l))  !  NEXT  I:  PRIN 

T 
C(  2060  FOR  X  =  1  TO  R0:  IF  X  < 

10  THEN  PRINT  "  "; 
4!  2070  PRINT  STR*  (X)"  "; 
Sfl  2080  FOR  Y  =  1  TO  C0:  PRINT  M 

ID*  (S«(X),Y,1); 
21  2090  NEXT  Y!  PRINT  :  NEXT  X: 

PRINT  :  PRINT  !  PRINT  "W 

DRD  LIST! " 
31  2100  FDR  X  =  i  TO  W0:  IF  W»(X 

)  =  "/"  THEN  2120 
«  2110  PRINT  W*(X) 
27  2120  NEXT  X:  FOR  I  =  1  TO  5: 

PRINT  s  NEXT  l!  IF  SL  ■= 

0  THEN  2160 
13  2130  PRINT  "SOLUTION  LIST:": 

PRINT  "WORD 

ROW    COLUMN    D 

IR":  FOR  X  -  1  TO  W0;  IF 
W«(X)  -  "/"  THEN  2150 
«  2140  PRINT  W«(X)  LEFT*  (G«,26 

-  LEN  (W«<X)))RR<X)  LEF 
T*  (6*, 9  -  LEN  (  STR*  <R 
R(X>)))CC(X>  LEFT*  (Q«,6 

-  LEN  (  STR*  (CC(X))>)F 
F*(X> 

91  2150  NEXT  X 

BF  2160  PRINT  :  PRINT  D«j"PR#0": 
RETURN 


Program  6:  IBM  PC/PCjr 
Line  Changes 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  published  bimonthly  in  compute!. 

!C  10  DEF  SEG=0:POKE  1047,  (PEEKC 

1047)  OR  64) 
JD  20  WIDTH  40:  KEY  OFF:  DEF  SEG=8< 

H40:  RANDOMIZE  PEEK(I<H6D) 
ND  1720  CLS 

HF  2000  ON  ERROR  GOTO  2170 
EK  2010  OPEN  "LPTl:"  FOR  OUTPUT 

flS  #1: PRINT  *1,T«: PRINT 

*1, 
KH  2020    PRINT   #1,"  ";:FOR    1  =  1 

TO    C03IF    I/10<>INT(I/10 

)  THEN  PRINT  #1,"  "jsGOT 

O  2040 
NH  2030  PRINT  #1 ,  MID*  (STR*  <  I )  ,  2, 

1>5 
KE  2040  NEXT  I:  PRINT  #1, 
SF  2050  PRINT  #1,"     ";:FOR  I"l 
TO  C0:PRINT  #1, RIGHT* (S 

TR*(I) , 1); :NEXT  Is  PRINT 

#1, 
EH   2060    FDR    X=l    TO    R0:IF    X<10    TH 

EN    PRINT    #1,"    "; 
PH  2070    PRINT   #1,STR*{X)"     "; 
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300  pages,  $19.95    350  pages,  $19.95    320  pages,  $19.95   200  pages,  $19.95 


275  pages,  $19.95    250  pages,  $19.95    200  pages,  $14.95    340  pages,  $19.95 


215  pages,  $14.95    210  pages,  $14.95    210  pages,  $14.95    330  pages,  $19.95 


225  pages,  $14.95    220  pages,  $12.95    250  pages,  $19.95    250  pages,  $19.95 


For  fast  service  call  616/241-5510,    For  postage 

and  haridling,  include  $4.00  per  order.  Foreign 

orders  include  $8.00  per  item.  Money  orders  and 

checks  irv  U.S.  dollars  only.  Mastercard,  Visa  and 

Amex  accepted. 

Dealer  Inquiries  Welcome 
More  than   1200  dealers   nationwide 


Abacus  ^M  Software 


P.O.  Box  7211  Grand  Rapids,  Ml  49510  616/241-5510 

Other  software  also  available! 

Call  now  for  free  catalog  and  the  name  of  your 
nearest  dealer,  Phone:6l6/241-5510. 


LearnAirAbout 


COMPUTE! 's 

TELECOMPUTING 

ON  THE 

COMMODORE 

64 


EvetytlWio  vou  need  to  know  t&  stort 

telecomputing  on  \wjr  M— mdudng  ipsOol 

taimlnol  softwate, 


A  COMTUTII  iMla  PubKotlon 


With 

COMPUTEI's  Telecomputing 
on  the  Commodore  64 

This  comprehensive  guide  explains 
everything  you  need  to  l<now  to  start 
telecomputing  on  your  Commodore 
64. 

Many  home  computer  analysts 
beiieve  that  teiecompuling  wiii  soon 
be  the  most  popular  use  (or  home 
computers.  COMPUTEt's  Telecomputing 
on  the  Commodore  64  Introduces 
readers  to  telecommunications,  with 
sections  on  buying  and  using  modems, 
accessing  information  services  and 
bulletin  boards,  and  uploading  and 
downloading  files.  Best  of  all,  there  are 
terminal  programs  which  allow  you  to 
communicate  with  the  information 
services  and  bulletin  boards. 

Edited 
$12.95 

0-87455-009-2 


For  your  convenience,  there's  olso  a  disk  available  which  Includes  all  the 
programs  In  the  book.  This  5V4-lnch  floppy  disk  saves  you  hours  of  typing 
and  prevents  many  typing  errors.  It's  fast.  Inexpensive,  and  ready  to  load 
on  your  Commodore  64.  You  can  order  the  Disk  directly  from  COMPUTE! 
Books  for  only  $12.95. 

To  order  COMPUTEt's  Telecomputing  on  ihe  Commodore  64  or  the  Disk,  mall  the  order 
form  with  your  payment  to  COMPUTE!  Books,  P.O.  Box  5058,  Greensboro,  HC  27403. 
For  fastest  service,  call  toll  free  800-334-0868  (in  NC  919-275-9809.) 


YCSI I  WANT  TO  UAHN  TO  TBllCOMPUTE  WITH  MY  COMMODORE  64. 

Please  send  me: 

COMPUTEt's  Telecomputing  on  the  Commodore  64,  (009-2)  $n.<>S  oo. 

(Add  S2.00  per  book  U.S.  cand  surface  mall,  S5.00  airmail,  for  shipping  charges.) 
COMPUTEt's  Telecomputing  on  ttte  Commodore  64  Disk,  Si 2.95  each 

(Add  S2.00  per  disk  for  shipping  charges.) 
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Shipping  charges 
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COMPUTE!  Publicationsjnc.® 


COIvfPUTEi  Books  ore  ovailable  in  the  U.K.,  Europe,  the 
N^iddte  East,  and  Africa  from  Holt  Saunders.  Ltd., 
1  St.  Anne's  Road,  Eastbourne,  East  Sussex 
BN21  3UN,  England. 
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^ 

If   20B0 

K  2890 

Dn  2100 
CI  2110 
U  2120 

ei  2130 


AE  2150 
H  2160 
lA  2170 

JL  2180 
U  2190 
M  2200 


FDfl    Y=l     TO    C0:PF!INT    «1 ,  MID*  <S«  (X  )  ,  Y ,  I  )  ; 

NEXT    YsPRINT    «1,!NEXT    XiPRINT    «l,iPRINT    HE 

.tPRINT    •I, "WORD   LlSTt" 

FOR    X-1    TD    M0JIF    W»CX)-"/"    THEN    2120 

PRINT    tlljWSU) 

NEXT    XlFQR    I«l    TD    SsPRINT    #1,:NEXT    IiIF    SL 

-0    THEN    21iB 

PRINT  «l, "SOLUTION  LISTi":PRINT  •1,"W0RD 

ROW    COLUMN    DIR-iFOR 
X«l  TO  W0!IF  M»tX)-"/"  THEN  2150 
PRINT  «1,U«(X) ;LEFT*(G«,2S-LEN(U«(X) )) t RR ( 
X) )LEFT»(B«,B-LEN(BTfi»(RR<X)l )) |CC[X)(LEFT 
*(G«,6-LEN(5TR*(CC[X] ) ) ) |FF«<X) 
NEXT  X 

CLOSE  «l!ON  ERROR  BOTO  0: RETURN 
CLOSE  HIliPRINT  "PRINTER  ERROR  #"!  ERR;  "OCCU 
RRED."iPRINT  "TRY  AGAIN." 
PRINTi  PRINT  "HIT  ft  KEY  TO  CONTINUE" 
A«-INKEY»:IF  fl»-""  THEN  2190 

resuhe  2010 


Program  7:  TI-99/4A  Line  Changes 

B0  RANDOMIZE 

95  MC-5B 

100  DIM  FF» (50) , S«<50) , W» (50) ,CC(30) ,RR(30> , L(5 

0)  ,E» (3,2) 
1B0  Q«-Gtti"  " 
SIB  R1=INT (RND»R0) 
520  Cl-INT (RND*C0> 
530  Dl-INT (RND»B) +1 
570  IF  (R1+DX»L  <X  X  1  )  *  (R1*DX«L  (X)  >R0)  +  (CH-DYtt.  ( 

XXDTHEN  590 
640  IF  (SES» (W»<X> , Z,  I )<"A")  +  (SEE* (W«( X)  , Z,  I  )  >" 

Z")THEN  660 
670  IF  <SEG«  (S*  (Rl  )  ,  CI  ,  1  l<  >'■  "  1  «  (SEG»  (  S*  (  R  1  )  ,  C  1 

,  1  )  < >SEG«  (Wt (X ]  ,  Z,  1 )  ) THEN  590 
700  IF  (SEE* (W» (X)  ,  Z,  1 )<"A")  +  (SEB* (W»(X t  , Z,  1  )  >" 

Z")THEN  770 
710  S«(R1>-5EG«<S«(R1),1,C1-1  )t<SEei  ( U«  (  X  )  ,  Z  ,  1  )  i> 

BEBt (St (fll I .Cl+l ,LEN(5« (Rl ) ) -CI > 
B40  IF  SEG» (X», 1, 2)-»BT"  THEN  1670 
850  IF  SEB» (X», 1 , 2) -"TR"  THEN  500 
B60  IF  ses« (X», I, 2) <>"3K"  THEN  B30 
910  IF  SEG« (S» (X ) , Y, 1 ) < >"  "  THEN  930 
920  S«(X)-SEB«(S«{XI,1,Y-1)«<CHR»(INT(26»RHD+6S) 

)  t.SE6»  (S»(  X)  ,  ¥+1,  LEN  (S*<X)  )-Y> 
1190  IF  (fit<>"Y"  )  «  (ft*<;>"N"  )THEN  11S0 
1550  IF  (LEN (X«)<-Ra) « (LEN (X»)<-C0) « (X»<>"X") TH 

EN  1610 
1690  SH ( I ) -SEGt (Q«,  1  ,  C0) 
1720  CALL  CLEAR 
2000  OPEN  «li"RS232" 
2010  PRINT  «1;T« 
2020  PRINT  Ml 

2030  PRINT  »!:"t3  SPflCES)"j 
2040  FOR  I-l  TO  C0 

2050  IF  I/10>INT ( I / 10) THEN  2080 
2060  PRINT  •! I "   " ; 
2070  GOTO  2090 

20B0  PRINT  #1 isee« (STR» ( I )  ,  1 ,  1  I  I 
2090  NEXT  I 
2100  PRINT  «1 

2110  PRINT  #11 "{3  SPACES}"! 
2120  FOR  I-l  TO  C0 

2130  PRINT  ttl:  SEG»  (STR»  (1  )  ,  LEN(STR»  (  I)  )  ,  1)  J 
2140  NEXT  I 
2130  PRINT  #1 
2160  FOR  X-1  TD  R0 
2170  IF  X>-ie  THEN  2190 
2180  PRINT  #Ii»  "I 
2190  PRINT  •IiSTRtlX))"  "| 
2200  FOR  Y-1  TO  C0 
2210  PRINT  WI : SEG* <E* (X > , ¥,  1  ) t 
2220  NEXT  Y 
2230  PRINT  «1 
2240  NEXT  X 
2250  PRINT  «1 
2260  PRINT  •! 

2270  PRINT  »j!"MORD  LISTi" 
22e0  FOR  X-1  TO  U0 
2290  IF  W«(X)-"/"  THEN  23  10 
2300  PRINT  ttt:U«(X) 
2310  NEXT  X 
2320  FDR  I-l  TO  5 
2330  PRINT  #1 
2340  NEXT  I 

2350  IF  5L-0  THEN  2430 
2360  PRINT  tlt-SOLUTION  LIST:" 
2370  PRINT  •ll"MDRD<2l  SPACES>R0W{3  SPACES>COLUn 

N"  J 
2380  PRINT  •l!"{3  SPAceS>DIR" 
2390  FOR  X-I  TD  W0 
2400  IF  W»(X)-"/"  THEN  2440 
2410  PRINT  #1 iW« (X) iSEQ* tQ«j l,2S-LEN(Wt (X) ) ) JRR 

<X)  ; 
2420  PRINT  •IsSEG* (B», 1 ,7-LEN(STR«(RR(X) > ) ) iCC( 

X) J SEG* (6», 1 ,4-LEN<STR» (CC(X ) ) > ) t 
2430  PRINT  »1jFF»(X) 
2440  NEXT  X 
2450  CLOSE  »1 
2460  RETURN 


[say  Icepick],  a  revolutionary  new  concept  in 
software  de-protection  for  the  Connmodore 
64.  ISEPIC  is  not  a  disk  duplication  system, 
but  an  extraordinary  hardware/software 
combination  that  actually  bypasses  any  disk 
protection  scheme.  ISEPIC  captures  and 
saves  the  protected  program  as  it  runs  in  the 
B4's  memory,  this  "snapshot"  becomes  ac- 
cessible to  the  user  for  complete  inspection 
and  alteration.  From  this  image,  ISEPIC  can 
automatically  create  a  compact,  auto-booting, 
fast-loading  file  which  is  completely  un- 
protected and  self  contained. 

■sV    Copies  ALL  memory-resident  software 

-ft-    ISEPIC'd  programs  load  many  times 
faster  than  originals 

-*    ISEPIC  is  invisible  to  software — cannot 

be  defeated 

a  Eliminates  drive  "knock"  due  to  antique 
protection  schemes— adds  years  of  life 
to  your  drive 

-sV  Automatically  "cracks"  protected  pro- 
grams into  single,  auto-booting,  super- 
fast  loading  files 

-ft-     Place  multiple  programs  on  a  single 
diskette 

T^    Create  auto-booting,  fast-loading 
versions  of  your  own  programs 

ir  Cracked  programs  are  completely  self- 
contained  and  run  independently  of  the 
ISEPIC  adapter 

-ft-    Copies  software  with  a  flick  of  a  switch 

-ft-     ISEPIC  comes  complete  and  ready-to- 
run,  just  plug  into  expansion  port 

in     Programs  cracked  by  ISEPIC  may  be 
used  on  MSD  or  404D  drives  as  well 
as  hard  disks  regardless  of  original  pro- 
tection schemes 

When  ordering  by  mail: 

*  S64.95   +    3.00  shipping 

*  S64.95    +    4,00  COD  orders 

*  Calif,  residents  add  6%  sales  tax 

*  VISA  or  Mastercard  accepted 

*  Shipping  out  of  USA  S6.DD 
Please  allow  4-6  weeks  for  delivery. 
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A  SPECIAL  APPLE-SPECIFIC  PUBLICATION  FROM  THE  PUBLISHERS 

OF  COMPUTE!,  COMPUTE! 's  Gazette.  ANC 
BEST-SELLING  COMPUTE!  BOOKJ 


The  second  semiannua 

edition  of  COMPUTEI'i 

Apple  Applications  Specia 

goes  on  sale 
October  IJ 98^ 

Price:  $3.95 
(in  Canada  $4,75) 


Editorial 

COMPUTEI's  Apple  Applications  Special  second  issue  features  applications,  purcliasing  de- 
cisions, tutorials,  and  in-deptti  feature  articles  for  owners  and  users  of  Apple  personal 
computers,  TInere  are  exciting  applications  for  business,  school,  and  home.  From  software 
to  hardware  to  the  state  of  the  industry,  this  special  issue  serves  as  a  useful  tool  and  a 
handy  reference.  The  special  issue  includes: 


Features 

Apple  at  Ten,  and  What's  Coming  in  the 
Next  Decade:  This  in-depth  look  de- 
scribes Apple's  place  in  the  industry  and 
predicts  what  it  will  do  In  the  future.  Can 
the  Macintosh  Office  concept  succeed 
against  IBM?  How  will  Apple  retain  its 
position  in  the  morket  when  the  newest 
round  of  computers — such  as  the  Com- 
modore Amiga  and  Atari  ST — reaches 
homes  and  schools?  This  intriguing  sur- 
vey includes  comments  by  computer  in- 
dustry analysts  and  software 
manufacturers. 

Cruising  MAUG:  The  Micronet  Apple 
Users  Group  is  probably  the  best 
connection  any  Apple  owner  can 
make.  Available  through  CompuServe, 
MAUG  lets  Apple  users  communicate 
ond  exchange  information  and  pro- 
grams. This  guide  to  MAUG  describes 
just  some  of  its  features,  and  highlights 


programs  from  Macintosh  desktop  util- 
ities to  complete  terminal  software,  all 
of  which  can  be  retrieved  with  a 
modem. 

The  Big  Picture:  Innovative  hardware 
and  software  can  transform  the  Apple  I 
computer  into  a  powerful  graphics  ma- 
chine and  enhance  the  Macintosh's  al- 
ready considerable  abilities.  Drawing 
programs,  digitizers,  and  graphics  tab- 
lets are  featured  and  evaluated  in  this 
buyer's  guide  and  tutorial. 


Applications 

Dr.  Disk:  Allows  you  to  read  from,  edit, 
and  write  to  any  block  on  any  disk.  An 
excellent  utility  which  lets  you  examine 
disk  contents,  manipulate  catalogs,  and 
even  change  machine  language 
programs. 


Enhanced  Applesoft  iNPUT:  A  short  ma- 
chine language  utility  which  turns 
Applesoft  INPUT  into  a  more  flexible  and 
powerful  statement.  Allows  entry  of  any 
valid  numeric  expression,  as  well  as 
commas,  quotes,  or  colons  as  responses 
to  the  INPUT  prompt. 

The  Office  for  Everyone:  A  major 
applications  feature  on  using  Word, 
Chart,  FilQ.  Muttipian.  and  MacTerminal 
on  the  Mocintosh.  This  tutorial  shows 
how  to  turn  the  Macintosh  into  a  power- 
ful business  computer. 

Apple  Electrotype:  This  simple  BASIC  pro- 
gram turns  any  Apple  ll-series  computer 
into  an  electronic-style  typewriter.  Set 
margins  and  tabs,  underline,  and  print 
out  letters,  memos,  and  notes. 

Quality  editorial  in  the  style  and  tradition 
of  COMPUTE!,  the  leading  magazine  of 
home,  educational,  and  recreational 
computing. 


There's  also  a  disk  available  which  includes  all  the  programs  from  the  magazine.  The  5^^-inch 
floppy  disk  for  the  Apple  II  +  ,  lie,  or  lie  costs  $16.95  and  is  available  only  from  COMPUTE! 
Publications.  Send  in  the  attached  card  with  your  payment  today  to  order  the  Disk. 

Look  for  the  October  issue  of  COMPUTEI's  Apple  Applications  Special  on  sale  where 
you  buy  other  COMPUTE!  publications,  or  at  Apple  computer  retailers.  You  can  also  order 
directly  from  COMPUTE!  Publications, 

To  order,  send  in  the  attached  card  with  your  payment  or  call  toll-free  800-334-0868 
(in  NC  919-275-9809,) 


DL 

160 

a 

170 

HL 

180 

KB 

190 

BJ 

200 

nn  210 

Program  8:  Atari  Version 

Version  By  Patrick  Parrish, 

Programming  Supervisor 

For  instructions  on  entering  this  listing,  pleas© 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  published  bimonthly  in  compute!. 

KG  100  NR  =  99:  NW=100:  REM  NR  I 

S  MAX  #  DF  ROWS.COLUM 

NS;      NU     IS     MAX     tt     OF     UIO 

RDS 
NJ110     DIM     G«  (NR)  ,  FF«  (2«NW>  , 

SS(NRtNR) ,U«(NU(20> ,C 

C (NU) , RR (NU) , L (NM> ,E« 

(IB) , D (2f S) , A« (5) , X» ( 

20) ,T« (30) 
CD  120     READ     E«:DATA     IMW     NNE     M 

C3     SPACESJESW     SSE 
KD  130     G«="      "  :  G*  (NR)  =G«:  B«  (2 

)-G«:W«="     ":W$(20«NW) 

-U*:U« (2) =W« 
LP  140  FDR  1  =  1  TD  BiREAD  A.B 

: D ( 1 ,  n  =A! D (2,  I )=B: NE 

XT  I: DATA  -1,-1,-1,0, 

-1, 1,0,-1,0, 1, 1,-1, 1, 

0,  1,  1 
LK  150  )(»*■ X«  (20>=)(«!  X«  (2 

)-X«:GOTO  580 

REM  SHELL  SORT 

PRINT  ""SORTING.  .."!  X  = 

1 

X=2*X!lF  X<=W0  THEN  1 

80 

X=INT (X/2> : IF  X=0  THE 

N  RETURN 

FOR  Y=l  TO  W0-X:Z=Y 

A-Z+Xs IF  L (Z) >=L (A)  T 

HEN  240 
IP  220  X«>M«  (  <Z-1  )  120-i-l  ,  Zt20 

) ! W* ( (Z-1 > 120+1 , Z«20) 

-W«((A-l)»20+l,A*20)s 

Wt((ft-l)*2a+l,A«20)=X 

C 
PS  230  B"L  (Z)  !  L  (Z)  =L  (fl)  :  L(fl) 

-BsZ-Z-X: IF  Z>0  THEN 

210 
DL240  NEXT  Y:GOT0  190 
CE  250  REM  HIDE  WORDS 
BP260  FOR  X  =  l  TO  W0 
W 270  FOR  Y~i  TO  50:R1=INT( 

RND( 1  J  »R0>  ! Cl-INT  (RND 

C 1 )  »C0)  : D1  =  1NT (RND  (  1  ) 

»a) +1 ! D1=D1 
CC280  DX-D  (  1  ,  Dl  )  s  DY=-D  (2,  Dl  ) 

! IF  Rl+DXtL <X) >=1  AND 
R1+DX*L(X)<-R0  AND  C 

1+DY»L(X)>-1  AND  Cl+D 

Y»L(X)<-C0     THEN     310 
ID  290     Dl-Dl*  (DKG) +1  !  IF     Dl< 

>01     THEN     200 
WZS0     NEXT     Y:GDTO     390 
PI310     FDR     Z  =  l     TO     L(X)jIF     W« 

((X-l)*20+2,   <X-1)«2  0+ 

Z) < "fl"     OR     M« { (X-1 ) «20 

+2, (X-1 ) «20+Z) >"Z"     TH 

EN  340 
RE  320  Rl-Rl+DX:  C1  =  C1+DY 
RC  330  IF  S«  (  (Rl-1  )  «C0  +  C1  ,  (R 

1-1 ) *C0+C1 )< >"  "  AND 

S«((R1-1)»C0+C1, (Rl-1 

)«C0+C1><>W«( (X-l)t20 

+  Z,  (X-1 )  *20  +  Z)  THEN  2 

90 
6L  340  NEXT  Z :  FOR  Z  =  L(X)   TD 

1  STEP  -l! IF  W« ( (X-1 ) 

»20+Z, (X-1 ) «20+Z)< "A" 
OR  U« ( (X-1 ) «20+Z, (X- 

1  ) *20+Z)  >"Z"  THEN  370 
RN  350  S«(  (Rl-1  )  IC0  +  C1  ,  (Rl-1 

>tC0+Cl)~W«( (X-l)t20+ 

Z, (X-1 ) »20+Z) 
W  360  RR(X)  =Rl:CC(X)e.ci:FF« 

t  (X-1 )  «2+l,X«2)=E» (  (D 


X+1) »6+ (DY+1 ) $2+1, !DX 

GE  660  F 

+I}t6+(DY+1)«2+2)!R1= 

BH  670  P 

Rl-DXiCl-Cl-DY 

I 

DD  370 

NEXT  Z 

< 

DO  3S0 

NEXT  XiGDTO  450 

m 

EK  390 

PRINT  ■' CCLEAR>Sorry, 

7 

but  I  can't  fit  ward 

M&B0     I 

number  ";STR«  (X)  j  "  , 

") W«(  (X-l>  t20+l , X»20) 

t 

;"  ,  into  the  grid." 

LE  690  I 

13   400 

PRINT  "Should  I  SKip 

IL  700  L 

it,  STart  aver,  or  TR 

t 

y  again" : INPUT  X« 

X 

GP  410 

IF  X«(1,2)="ST"  THEN 

1 

710 

KF  7  1  0  P 

HA  420 

IF  X*  (  1  ,  2)>="TR"  THEN 
270 

w 

KB  430 

IF  X«(1,2)<>"BK"  THEN 

4  00 

0 

(31440 

Mi ( (X-l)«20+l, (X-1) «2 

6f  720  F 

0+1 )="/": GOTO  380 

N 

PO  4  50 

FOR  X=l  TO  R0:FDR  Y= 1 

flK  1999 

TO  C0: IF  S* ( (X-1 ) *C0 
+  Y,  (X-1)  *C0  +  Y)  <  >"  "  T 

C!  2000 

HEN  470 

DH  460 

S«< (X-1 ) »C0+Y, (X-1 ) *C 
0  +  y)-CHR*  (  II^T  (26«RND( 
l)+65) ) 

HP  20  10 

flE  470 

NEXT  Y:NEXT  X 

KG  4B0 

REM  DONE 

HG  490 

PRINT  :PRINT  "I  am:  fi 
nished.  What  do  you  m 

CA  2020 

U   500 

ant  to  call  the  word 
search": INPUT  T* 
SL=0sPRlNT  :PRINT  "Do 

you  want  to  print  th 
e  solution  (Y/N) ": GDS 
UB  550! IF  fi«="N"  THEN 

520 

GI  2030 
LI  2040 

KD510 
CN  520 

SL=1 

GQSUB  2000: F»0:PRINT 

CB  2050 

"CCLEARJDo  you  want  a 
nother  grid  (Y/N) " : GO 

GE  2060 

SUB  550! IF  At="N"  THE 
N  END 

GC  2070 

!FS30 

PRINT  !PRINT  "Do  you 

want  to  use  the  same 

NA  20B0 

words  (Y/N)"seOSUB  55 

0:IF  A*="N"  THEN  590 

FH  540 

F=1:G0T0  610 

OB  550 

INPUT  A*:  IF  flSO"  Y"  A 

HE  2090 

ND  A*<>"N"  THEN  550 

HL  560 

RETURN 

tl  570 

REM  INITIALIZATION 

LD  5H0 

PRINT  CHR«(125) :LL=6: 

GDSUB  7201  PRINT  " 

(K  2100 

{12  RIGHT>WaRD  SEARCH 

LH  2  1  1  0 

"!LL-4:G0SUB  720 

FE  590 

FDR  1=1  TD  W0: W« ( ( I-l 

) t20+l, I*20)=G« ( 1 , 20) 

ID  2120 

!L(I)=0!NEXT  I 

HP  600 

PRINT  "How  many  words 
would  you  like  in  yo 

ur  word  search": INPUT 
W0 

OF  2130 

IB  610 

PRINT  !PRINT  "Hpw  man 

y  rows  and  columns  in 
the  9rid":INPUT  R0,C 

PL  2  140 

0:PRINT 

HK  620 

IF  R0IC0<10tW0  THEN  P 
PINT  "I  don't  think  I 

could  do  this.":FaR 
I"l  TO  300INEXT  IsGOT 
0  610 

HH  2150 

AO6  30 

PRINT  "I  think  I  can 

IF  2160 

do  this. "! IF  C0>NR  TH 
EN  PRINT  " (But  it  won 
't  -fit  on  the  paper.) 

GB  2  1  7  0  t 
BE  2  1  B  0  [ 

KE  640  IF  F-1  THEN  710 
LJ  650  LL  =  3iGDSUB  720:PRINT 
"Enter  the  ";STR*(W0) 
5"  words.  To  correct 
a  mistake,  enter  X"sP 
RINT 


^DR  1=1  TD  U0 
'RINT  "Word  number  "; 
INPUT  X» 1  IF  LEN 
:X*)<=R0  AND  LEN(X«>< 
•C0  AND  X*<>"X"  THEN 

700 

[F  X$<>"X"  THEN  PRINT 

"Qops...the  ward  is 
loo  long."!G0T0  670 
a-( I>1 ) ! GOTO  670 

(I) "LEN (X«) : W«( ( I-l ) 
120+1 , (I-l ) «20+L (I ) )= 
(«:NEXT  IsPRlNT  CHR»( 
125>!G0SUB  170 
>RINT  "{DOWN>Okay,  I 
4ill  go  to  work.  Mish 
1 uck !  "  : FOR  1  =  1  TO 

R0:S* (  (  I-l ) *C0+1 ,  I*C 
l>=G*:NEXT  I : GOTO  260 
■OR  1=1  TO  LL:PRINT  ! 
JEXT  I:RETURN 

REM  PRINTER  ROUTINE 

TRAP  2190:OPEN  *1,8, 

0,  "P:  "  :PRINT  #1 ; T*JP 

RINT  ttl 

PRINT  #1 ; " 

{3  SPACE5>  ■■  ;  :  FDR  1  =  1 
TO  C0:  IF  I  /10OINT  ( 

1/10)  THEN  PRINT  *t  1  ; 
'  ;  : GOTO  2030 

XS=STR*( I ) SPRINT  #1 ; 

XS ( 1,  1)  ; 

NEXT  IsPRINT  #1 

PRINT  #1 } " 

f 3  SPACES> " ; sFOR  1=1 
TO  C0S X*=BTR« ( I ) : PR 

INT  *l;Xt (LEN (X«) , LE 

N(X*) ) ; : NEXT  IiPRINT 
4)1 

FDR  X=l  TO  R0!lF  X<1 

0  THEN  PRINT  #1 i  "      "  ; 

PRINT  #1 ; STR«  (X)  ;  "  " 

FDR  Y=l  TO  C0:PRINT 
#1 ; S«( (X-1 ) «C0+Y, ( X- 
1 ) »C0+Y) ; 

NEXT  Y:PR1NT  #1:NEXT 

XsPRINT  #1!PRINT  #1 

:PRINT  «1; "WORD  LIST 

FOR  X= 1  TO  W0: IF  Wt ( 
(X-1  )  *20+l  ,  (X-1 )  t20  + 
1)="/"  THEN  2110 

PRINT  #1 ; W« ( (X-1 > »20 

+1 , X*20) 

NEXT  X:FDR  I-l  TD  5; 

PRINT  ttl :NEXT  I  :  IF  S 

L=0  THEN  21B0 

PRINT  #1 j "SOLUTION  L 

IST:":PRINT  «ls"WORD 

<21  SPACES>RDW 

{3  SPACESJCOLUMN 

<3  SPACES>DIR" 

FOR  X= 1  TO  W0: IF  Wt ( 
( X-1 ) *20+l , (X-1) »20+ 

1)="/"  THEN  2170 

PRINT  »1 5  Wt {  ( X-1 )  t20 

+1 , X«20) ; Gt { 1,6) ;RR ( 

X)  ; 

PRINT  #1 ;Gt ( 1 , 9-LEN ( 

STRt (RR (X) ) ) ) ;CC ( X ) ; 

G» ( 1 ,6 -LEN (STRt (CC ( X 

)  )  )  )  ; 

«1  ;  FF»  (  (  X-1  )  t; 


TRAP  40000: 


PRINT 
+1 , X*2) 
NEXT  X 

CLOSF  #1: 
RETURN 

Efl2190  CLOSE  ttl!TRAP  40000: 
PRINT  "Turn  on  your 

printer press  RETUR 

N": INPUT  Xt!HOTO  200 
0 
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THE 


LAST 

WARRIOR 


David  Engebretsen 

This  arcade-style  action  game  was  originally  written  for  the 
IBM  PC  (with  BASICA  and  color /graphics  adapter)  and  PCjr 
(with  Cartridge  BASIC).  We've  added  adaptations  for  the  Com- 
modore 64;  Atari  400/800/  Xl/XE  series  (with  at  least  16K 
RAM  for  tape  or  24K  RAM  for  disk);  and  Apple  II  series.  A 
joystick  is  required  for  all  versions  except  the  Apple.  The 
Commodore  64  and  Atari  programs  are  written  completely  in 
machine  language. 


''Attacked  by  countless  alien  ships 


99 


You're  the  last  member  of  the 
scouting  party  sent  from  Earth. 
While  flying  a  routine  mission,  you 
and  your  fellow  scouts  were  sud- 
denly attacked  by  countless  alien 
ships.  Your  comrades  put  up  a  good 
fight  but  couldn't  survive  in  the 
face  of  the  aliens'  nonstop  shooting. 
Now  the  only  things  between  you 
and  utter  destruction  are  your  high- 
ly advanced  force  shields  and  la- 
sers. The  aliens  may  not  be  as  well 
armed,  but  they  make  up  for  it  in 
sheer  numbers.  As  you  blast  yet 
another  hostile  ship,  it  is  immedi- 
ately replaced,  and  your  energy 
supply  dwindles,,.. 

"The  Last  Warrior,"  as  you've 
guessed,  is  a  space  shoot-em-up 
game.  The  classic  object  is  to  de- 
stroy as  many  aliens  as  possible 
before  they  destroy  you.  Your  per- 
formance is  graded  at  the  end  of  the 
game  by  the  number  of  points  you 
score  and  by  rank:  captain,  major, 
colonel,  general,  or  warrior.  Scoring 
and  a  few  other  details  vary  from 
version  to  version,  but  all  the  pro- 
grams have  one  thing  in  common — 
the  highest  ranks  are  attainable 
only  by  the  very  best  players. 

rSM  Version 

After  typing  the  program  and  sav- 
ing at  least  one  copy  on  disk,  plug 
in  a  joystick  and  type  RUN,  Your 
starfighter  appears  on  the  screen, 
and  the  program  asks  you  to  move 
the  stick  to  the  upper-left  corner 
and  press  the  fire  button.  Next 
you're  asked  to  move  the  stick  to 
the  lower-right  comer  and  press  the 
button  again.  This  calibrates  the 
program  with  your  joystick,  since 
different  sticks  tend  to  yield  differ- 
ent values.  (You  may  also  prefer  to 
flip  the  switches  on  the  bottom  of 
the  controller  to  free  the  stick  from 
its  self-centering  mode.) 

When  the  game  begins,  you 
find  yourself  looking  out  of  the 
front  cockpit  window  at  a  star  field. 
Below  the  window  is  an  instrument 
panel,  and  an  aiming  sight  floats 
somewhere  on  the  screen.  By  ma- 
neuvering the  sight  with  the  joy- 
stick, you  can  aim  your  lasers  at  the 
alien  ships  which  suddenly  appear 
in  view.  Press  the  joystick  button  to 


fire  shots  as  the  aliens  make  their 
passes.  With  any  luck,  you'll  wit- 
ness a  brilliant  explosion  as  the 
alien  attacker  is  reduced  to  Stardust. 
But  more  aliens  soon  appear  to  take 
his  place  {up  to  three  at  a  time),  and 
the  battle  continues. 

Don't  fire  your  lasers  indis- 
criminately, because  each  shot 
burns  up  energy,  as  indicated  by 
the  lower  horizontal  bar  on  the  in- 
strument panel.  This  bar  shortens 
toward  the  left  side  of  the  screen  as 
your  energy  decreases.  Alien  hits 
on  your  force  shields  also  sap  ener- 
gy. The  upper  horizontal  bar  on  the 
instrument  panel  shows  the  relative 
number  of  points  you've  scored. 
When  this  bar  goes  off  the  scale 
toward  the  right,  you  advance  one 
rank  and  the  bar  starts  again  at  the 
left.  Your  rank  is  constantly  dis- 
played on  the  panel  and  starts  at 
captain. 

The  game  ends  when  your  ship 
runs  out  of  energy.  Your  final  rank 
and  score  appear  on  the  screen — a 
higher  rank  with  few  points  is  con- 
sidered better  than  a  lower  rank 
with  many  points.  Press  the  joy- 
stick button  to  start  another  game. 

The  IBM  version  of  The  Last 
Warrior  is  written  entirely  in  BASIC 
and  animates  the  aiming  sight  and 
alien  ships  with  the  PUT  statement. 
To  reduce  flickering,  one  set  of  vari- 
ables stores  the  existing  positions  of 
the  images  while  another  set  holds 
the  new  positions.  That  way,  when 
the  program  erases  an  existing  im- 
age, it  can  draw  the  new  one  imme- 
diately without  pausing  to  update 
the  variables.  As  a  result,  flickering 
is  hardly  noticeable,  especially 
when  the  program  runs  on  the  PC 
(which  is  faster  than  the  PCjr). 

64  Version 

Written  entirely  in  machine  lan- 
guage, the  64  version  of  The  Last 
Warrior  must  be  typed  with  the 
"MLX"  machine  language  entry 
utility  found  elsewhere  in  this  is- 
sue. MLX  makes  it  much  easier  to 
enter  machine  language  programs 
without  typos.  Be  sure  you  read  and 
understand  the  instructions  for  us- 
ing MLX  before  entering  the  data 
from  Program  2. 


When  you  run  MLX,  you'll  be 
asked  for  the  starting  and  ending 
addresses  of  the  program  to  be  en- 
tered. For  The  Last  Warrior,  the 
values  are: 

STARTING  ADDRESS?        49152 
ENDING  ADDRESS?  518M 

If  you  enter  the  data  from  Program 
2  in  more  than  one  sitting,  be  sure 
to  use  these  same  values  whenever 
you  reload  your  partially  completed 
work. 

After  you've  finished  entering 
the  data  and  saved  at  least  one  copy 
of  the  game  on  disk  or  tape,  load  it 
by  typing  LOAD"/i7eMflme",8,l  for 
disk  or  'LOkY)"fiUname" ,\,\  for 
tape  (replace  filename  with  what- 
ever name  you  used  for  your  final 
version).  Next  type  SYS  49152  and 
press  RETURN.  Then  plug  a  joy- 
stick into  port  2  and  push  the  joy- 
stick up  to  start. 

The  screen  shows  the  front 
view  from  the  cockpit  with  alien 
ships  appearing  in  the  distance 
against  the  star  field.  As  the  aliens 
get  closer,  their  ships  seem  to  grow 
larger.  Up  to  five  of  them  can  attack 
you  at  once.  Move  the  joystick  to 
aim  the  floating  crosshair  and  press 
the  button  to  fire  your  lasers.  Each 
hit  scores  100  points. 

The  instrument  panel  at  the 
bottom  of  the  screen  shows  the  lev- 
el of  your  ship's  shield  energy,  the 
number  of  points  you've  scored, 
and  a  special  targeting  scope.  When 
the  game  begins,  the  energy  indica- 
tor is  set  at  5,000  units.  Each  laser 
shot  you  fire  depletes  the  shield 
energy  by  20  units.  Alien  hits  cost 
100  units  of  shield  energy.  When 
the  energy  indicator  drops  to  zero, 
your  shields  collapse,  leaving  you 
completely  vulnerable.  The  next 
alien  hit  will  destroy  your  ship  and 
end  the  game.  At  this  point,  you 
might  as  well  shoot  like  crazy,  since 
you're  out  of  shield  energy  anyway. 

To  help  you  hit  distant  ships, 
the  targeting  scope  on  the  instru- 
ment panel  alerts  you  when  your 
aiming  sight  has  locked  onto  an 
alien.  If  you  press  the  fire  button  at 
this  instant,  you're  guaranteed  a  di- 
rect hit. 

When  the  game  ends,  the  pro- 
gram displays  your  final  score  and 
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rank,  then  waits  for  you  to  push  the 
joystick  up  to  start  another  game. 
During  a  game,  you  can  freeze  the 
action  by  pressing  any  key,  and 
continue  playing  by  pressing  an- 
other key. 

The  64  version  of  The  Last 
Warrior  uses  the  multicolor  high- 
resolution  graphics  screen  and  all 
eight  sprites  for  the  aiming  cross- 
hair, explosion  effects,  targeting 
scope  image,  and  maximum  of  five 
alien  vessels. 

Atari  Version 

Like  the  64  version,  the  Atari  adap- 
tation of  The  Last  Warrior  is  written 
entirely  in  machine  language  and 
must  be  typed  with  the  MLX  entry 
utility  found  elsewhere  in  this  is- 
sue. MLX  greatly  reduces  the 
chances  of  typos  when  entering 
long  machine  language  programs. 
Be  sure  you  read  the  instructions 
and  understand  how  to  use  Atari 
MLX  before  entering  data  from  Pro- 
gram 3. 

When  you  run  the  MLX  pro- 
gram, you'll  be  asked  for  starting, 
ending,  and  run/init  addresses.  For 
The  Last  Warrior,  the  proper  values 
are: 

STARTING  ADDRESS?         8192 
ENDING  ADDRESS?  10249 

RUN/INIT  ADDRESS?  8192 

If  you  enter  the  data  from  Program 
3  in  more  than  one  sitting,  be  sure 
to  use  these  same  values  whenever 
you  reload  your  partially  completed 
work.  You'll  then  be  asked  whether 
you  wish  to  create  a  boot  tape,  a 
boot  disk,  or  a  disk  binary  file.  For 
The  Last  Warrior,  you  can  choose 
any  of  these  three.  However,  you 
should  avoid  the  binary  file  option 
if  you  are  not  familiar  with  the  pro- 
cedure for  loading  "and  executing 
such  files. 

After  you  finish  entering  the 
data  from  Program  3,  and  you've 
saved  at  least  one  copy  of  The  Last 
Warrior  on  disk  or  tape,  start  the 
program  by  loading  the  boot  disk  or 
boot  tape  or  running  the  binary  file 
created  with  MLX.  For  a  boot  disk, 
simply  insert  the  disk  in  the  drive 
and  switch  on  the  computer  after 
removing  the  BASIC  cartridge  (on  a 
600XL,  800XL,  or  XE-series  com- 
puter, hold  down  the  OPTION  but- 
ton while  turning  on  the  machine). 
To  run  a  boot  tape,  switch  on  the 
computer  while  holding  down  the 
START  button  (again,  remove  the 
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BASIC  cartridge  with  a  400,  800,  or 
1200XL,  or  simultaneously  hold 
down  START  and  OPTION  with  a 
600XL,  800XL,  or  XE).  Then  press 
the  PLAY  button  on  the  cassette 
recorder  and  hit  RETURN.  If  you 
used  MLX  to  save  the  program  as  a 
binary  disk  file,  load  it  with  the 
binary  load  option  in  DOS  and  run 
at  hex  address  2000  (decimal  8192). 

Plug  a  joystick  into  port  1  and 
press  the  fire  button  to  start.  The 
screen  shows  the  front  view  from 
your  ship's  cockpit  window.  Alien 
vessels  first  appear  as  distant  dots 
against  the  star  field,  then  grow 
larger  as  they  approach.  Their 
weapons  are  limited,  so  they  can 
start  shooting  at  you  only  at  point- 
blank  range.  But  you  can  shoot 
them  at  any  point  during  their  at- 
tack. For  every  alien  ship  you  de- 
stroy, you  score  1 00  points;  for  each 
hit  they  make  on  your  energy 
shield,  you  lose  100  points  of  shield 
energy.  You  begin  the  game  with 
5,000  units  of  energy,  and  every 
shot  you  fire  uses  20  units.  (All  of 
this  information  is  indicated  on  the 
screen's  instrument  panel.)  You  can 
pause  and  then  continue  a  game  in 
progress  by  pressing  any  key. 

All  the  animation  in  the  Atari 
version  of  The  Last  Warrior  is  driv- 
en by  a  vertical  blank  interrupt  rou- 
tine— objects  are  moved  during  the 
split-second  interval  when  the  TV's 
electron  beam  returns  from  the 
lower-right  corner  of  the  screen  to 
the  upper-left  corner  to  scan  anoth- 
er frame.  Player/missile  graphics 
are  used  for  the  crosshair  and  alien 
ships,  so  no  more  than  three  aliens 
can  appear  at  once.  Alien  ships  ac- 
tually consist  of  six  separate  images 
which  are  flipped  in  succession  to 
create  the  illusion  of  an  approach- 
ing object.  The  program  employs  a 
custom  display  list  to  put  GRAPH- 
ICS 7  at  the  top  of  the  screen  and 
GRAPHICS  1  at  the  bottom.  The 
ship's  cockpit  window  is  not  plot- 
ted with  the  Atari's  built-in  line- 
drawing  routines,  but  rather  with 
custom-designed  routines  which 
are  faster  and  do  not  destroy  the 
screen  background.  Otherwise,  la- 
ser shots  would  gradually  erase  the 
lines  representing  the  cockpit 
window. 

Apple  Version 

Like  the  IBM  program,  the  Apple 
adaptation  of  The  Last  Warrior  is 
written  in  BASIC.  However,  it  does 


use  the  HROUT  machine  language 
character-plotting  routine  from 
"Apple  SuperFont"  (COMPUTE!, 
April  1985).  All  of  the  alien  ships 
are  custom  characters  created  with 
SuperFont  and  plotted  onto  the  hi- 
res graphics  screen.  The  aiming 
crosshair  is  drawn  with  shape 
tables. 

The  keyboard  controls  are  pro- 
grammed in  the  efficient  upside- 
down  T  arrangement:  1  for  up,  K  for 
down,  J  for  left,  and  L  for  right.  This 
is  more  convenient  than  the  usual  I- 
J-K-M  diamond,  because  you  can 
rest  your  first  three  fingers  on  J-K-L 
and  quickly  move  your  middle  tin- 
ger  up  and  down  between  I  and  K. 

To  fire  a  laser  shot,  press  the 
space  bar.  Press  P  to  pause  a  game, 
and  press  it  again  to  continue. 

An  instrument  panel  at  the 
bottom  of  the  cockpit  window  dis- 
plays all  the  important  information: 
points  scored  (100  for  each  alien 
ship  you  destroy),  units  of  shield 
energy  remaining  (the  game  begins 
with  5,000),  and  your  current  rank. 
Enemy  hits  reduce  shield  energy  by 
100  units,  and  your  own  laser  shots 
cost  20  units  each. 


An  alien  ship  explodes  near  the  cockpit 
window  while  another  zooms  in  for 
attack  in  the  IBM  version  of  "The  Last 
Warrior." 

Program  1 :  The  Last 
Warrior,  IBM  Version 

For  Instructions  on  entering  ttiis  listing,  please 
refer  to  "COMPUTEi's  Guide  to  Typing  In 
Programs"  publistied  bimonthly  in  COMPUTE!. 

Ht  20  SCREEN  ll COLOR  0,0:CLS:KEY 
OFF I  RANDOMIZE  TIMERlPLflY" 
mb"iSTRIB  an 

CL  3B  DIM  SIGHTX(20) ,SHIPX(50),1 
NFIX(404},HAX(50),HBXC&0), 
HCX ( 105} , tNVERX t 100) 

FE  40  REM  *t  get  tha  imag»s 

)J  30  CIRCLE  (5, 5),  3.,,,  l!  LINE  (3, 
3) -(4, 4)1  LINE (7, 3) -(6, 4> I L 
INE(7,7)-(6,6}lLINE(3,7)-( 
4,6)iBET(2,2)-(a,B),SISHT7. 
iCLS 

NJ  6,0  CIRCLE  (10,  10),  10,  2:  PAINT  (1 
0, 10), 2, 2i GET (0,0) -(20, 20) 


And  you  can  start  by  actually  building  NRI's 
16-bit  IBM-compatible  computer. 


You  can  create  your  own  bright,  high  paying 
future  as  an  NRl  trained  computer  semce  tech- 
nician. The  biggest  growth  in  jobs  behreen  now 
and  1995.  according  to  Department  of  Labor  pre- 
d!ction.s,  will  (Kcurin  computer  service  and  repair, 
where  demand  for  trained  technicians  will  double. 
There  is  still  plenty  of  room  for  you  to  get  in  on  die 
action— if  you  get  the  proper  braining  now. 

Total  computer  systems 
training,  only  from  NRl 

To  leani  how  to  work  on  computers,  you 
have  to  get  inside  one.  .^nd  only  NRl  takes  you 
inside  a  computer,  with  total  s>'stems  training  that 
gives  you  hands-on  experience  with  computers, 
periplierals,  and  software.  As  part  of  your 
training,  you'll  build  a  Sanyo  MBC-550-2,  which 
experts  have  hailed  as  Hie  "most  intriguing"  of  all 
the  new  lBM<ompatibles. 

Even  if  you've  never  had  any  previous 
training  in  electronics,  you  can  succeed  with  NRl 
training.  You'll  start  with  the  basics,  rapidly 
building  on  the  fundamentals  of  electronics  until 
you  master  advanced  concepts  like  digital  logic, 
microproees,sor  design  and  computer  memory. 
You'll  probe  into  electronic  circuits,  using  die 
exclusive  NRl  Discovery  Lab®  and  professional 
Digital  Multimeter,  that  you  keep. 

Leam  to  service  today's  computers 

You'll  assemble  Sanyo's  intelligent  i<eyboard. 
install  ttie  power  supply  and  disk  drive,  and  attach 
the  high  resolution  monitor— all  tlie  while 
performing  hands-on  e.'speriments  and  demon- 
sbations  that  reinforce  your  skills. 

As  you  complete  your  Sanyo,  you  grasp  the 
"  "secrets"  that  qualify  you  for  a  new  career.  You'll 


leam  to  program  in  BASIC  and  machine  language. 
You'll  use  utility  programs  to  check  out  the  Sanyo 
8088  microprocesstir  (the  same  chip  used  in  the 
IBM  PC).  And  you  also  get  over  S 1 ,000  worth  of 
sofl>s-are,  including  WordStar  and  CaJcStar. 

Learn  the  basics  at  home 

Most  importantly,  you'll  understand  the  prin- 
ciples common  to  all  computers.  Only  a  person 
who  fully  understands  all  the  fundamentals  can 
hope  to  be  able  to  tackle  all  computers.  NRl  makes 
sure  that  you'll  gain  the  knowledge  and  skills  to 
maintain,  troubleshoot  and  service  computers. 

With  NRl  training,  you'll  leam  at  home  on 
your  own  time.  That  means  your  preparation  for 
a  new  career  or  part-time  job  doesn't  have  to 
interfere  with  your  current  job.  You'll  leam  at 


your  own  pace,  in  the  comfort  and  convenience 
of  your  own  home.  No  classroom  pressures,  no 
rigid  night  .school  schedules.  You're  always 
backed  up  by  die  NRl  sUiff  and  your  instmctor. 
who  will  an,swer  questions,  gi\'e  you  guidance 
and  be  available  for  special  help  if  ynu  need  it. 

Send  for  free  NRl  catalog 

Let  others  worr\'  about  computer  taking 
their  jobs.  With  NRl  tiuining.  you'll  .scxin  have 
computers  m;iking  good  paying  jobs  for  you. 
Send  the  coupon  tixlay  for  NRI's  100-page 
catalog,  witli  all  the  facts  about  computer  train- 
ing. If  the  coupon  is  mi.-wing,  wiite  to  NRl  Schools, 
3939  Wisconsin  Ave.,  Washington.  D.C.  20016. 

IBM  IS  a  Registered  Tradematk  of  Internationa:  Business 
Machines  Corporation, 
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McGrav«-Hill  Continuing  Education  Center 

3939  Wisconsin  Avenue,  Washington,  DC  20016 

We'll  give  you  tomorrow. 

□  CHECK  ONE  FREE  CATALOG  ONLY 

_  Compuler  Eectronics  with  MiCf>coRi|)Uters 

Ij  Data  ComnnLriiiaiions 

n  Robotics  &  Industrial  Conlrols 

G  Color  TV.  Aydio.  and  Video  System  Servicing 

~  Electronic  Design  Technology 

~  Digital  Electronics 


For  Career  coy rses 
approved  under  Gl  bill. 

□  clieck  lor  details. 


D  Communications  Electronics 

G  Industrial  Electronics 

n  Basic  Electronics 

n  Telephone  Servicing 

n  Small  Engine  Servicing 

□  Appliance  Servicing 


n  Auiomollve  Servicing 
D  Air  CondiliOfiing.  Healing. 

Relrlgeration.  &  Solar  Technology 
D  Building  Construction 
n  Locl<smilhing  &  Electronic 

Security 
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, INFIX iCUS 
JA  70  LINE<0,0)-(&0,8),3,BF:GET( 

0,0}-(60,B)  ,INVERr.iCLS 
HL  B0  FOR  LDDP^a  TO  50 S  READ  SHIP 

X(LaOP)tNEXT 
ID  90  FOR  LQDP=0  TD  50!  READ  MAX  ( 

LOOP) I  NEXT 
II  100  FOR  LOOP-^B  TO  &0:  READ  HBX 

(LOOP)! NEXT 
UK  110  FOR  LOOP-0  TO  1 05  S  READ  HC 

X (LOOP) I  NEXT 
LI  120  REM  **  5Bt  up  the  screen 
01  130  SOSUB  680 
Bl  140  SN"l!SX(l)=160!SY(l)=50:S 

XA  ( 1 )  -8X  CD:  SVA  <  1 )  =-SY  ( 1 )  i 

DLA- 1 1  RANK  -0i ENE- 1 39 1 SCO 

-0 
Fl  1S0  60SUB  1370 
JF>  i&0  SN>liSX(n-l&0:SYCl)»50:S 

XA  < 1 ) -SX ( 1 ) : SVA ( 1 )=SY ( 1 ) : 

DLA-1 
IH  170  PLrr(127,167)  ,  INVERX.PRESE 

TiLDCATE  22, 17iPRINT"Capt 

■1 n" t PUT  < 127, lt7 ) , INVERX 
IC  1B0  XA=0!YA=0:  PUT  (XA.YA)  ,  SIGH 

TXiPUT(SX(l),SY(l)) ,SHIPX 
n  190  REM  tt  main  program  loop 
KA  200  BOSUB  290 
IP  210  GOSUB  560 
W  220  IF  STR1G(0)=-1  THEN  BOSUB 

zaetVBjRiBie) 

HE  230  IF  RND(1)<.2  THEN  PSET<32 
0tRND  (  1)  ,  1 10*RND  CD),  3*RN 
D (1 ) +1 

KA  240  IF  EO0  THEN  BOSUB  1110 

CN  250  DLA=DLA+.01:DL=INT(DLA) 

It  260  BOTD  200 

lU  270  END 

CJ  2B0  REM  tl  JOYSTICK 

JF  290  X-STICK(0)sY=STICK<n!X=X 
-JSXl I Y-Y-JSYl I X-X»TFXi  Y» 
Y»TFY 

FC  300  IF  X<0  THEN  X=0 

HF  310  IF  X>3t3  THEN  X=313 

HP  320  IF  Y<0  THEN  Y=0 

DF  330  IF  Y>103  THEN  Y=ia3 

DC  340  IF  X=0  AND  Y=0  THEN  X=XAi 
Y-YA 

KE  350  PUT(XA,YA),SIBHTXiPUT(X,Y 
),SIBHTXlXA-XiYA-Y 

HJ  360  RETURN 

FJ  370  REM  ««  -fire  !  ! 

fl  380  PUT(X,Y),S1BHTX 

IN  390  FDR  P=l  TD  SN:  PUT  (SX  (P)  ,  S 
V(P)),SHIPXlNEXT 

FH  400  LINE(0,110)-(X+3,Y+3),2:L 
1NE(319, 110)-(X+3,Y+3) ,2 

HJ  410  LINE(0,  110}-(X+3,Y+3),0:L 
INE (319, 1 10) -( X+3, Y+3) , 0 

FJ  420  LINE  (0,130) -(80,  110);  LINE 
- (240, 110) I  LINE- (319, 130) 

S«  430  LINE  (0,60) -(41,  50):  LINE- ( 
2S0, 50) I  LINE- (319, 60) 

H  440  LINE(80,110)-<10,0);LINE( 
240, 110)-(310,0> 

FO  450  IF  SX(LOOP)>290  THEN  SX(L 
tXJP)  -290 

IC  460  FOR  P=l  TO  SN:PUT(SX(P),S 
Y(P)),8HIPXiNEXT 

EH  470    PUT(X,Y>,SIGHTX 

SC  480  PLAY-I64  t255  bagfedc  <ba 
gfBdc>" 

KP   490    SNA=SN 

SO  500  FOR  L00P=1  TO  SNA 

PI!  510  IF  ABS((X+3)-(SX(LOOP)+10 
))<5  AND  ABS((Y+3)-(SY(LO 
0P)+9))<5  THEN  EC-EC+lsEX 
(EC)-SX(LOOP)iEY(EC)-SY(L 
OOP) I  DC (EC) «0i SN-SN-1 1  PUT 
(BX(LOOP) ,SY(LOOP) ) ,SHIPX 
I  FOR  L»LOOP  TO  3iSX(L)-SX 
(L+1 ) I SY (L) "SY (L+1 ) I BYA (L 
) -SY (L) I aXA (L) -SX (L) i NEXT 
L I GOSUB  1220 

HF  520  NEXT 
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KK  530 


HH  540 
IP  550 
lit  560 

BP  570 


KK  580 
BN  590 


LK  600 
te  610 
JP  620 


K  630 
IK  640 

OL   650 

DB  660 

CC  670 
F6  680 
Fl  690 
P!   700 


HF  710 
M  720 

HH  730 

JD  740 
SE  750 
K  760 


IH  770 
HF  780 

6£  790 

00  800 

EA  ei0 
KA  B20 
DK  830 
KP   840 

HB   850 


NO  860 
HP  870 
FL   880 


ENE=ENE-llIF    ENE<»>0   THEN 

GOSUB    1500    ELSE    LINE(91+E 

NE, 180) - (91+ENE, 184) , 0 

RETURN 

REM  tt  enemy  ships 

IF  RND(1)<.9  THEN  GOTO  60 

0 

IF  SN<3  THEN  SN-SN+liSX(S 

N]-INT(290«RND(1) ) tSY(eN> 

•INT  < 100tRND ( 1 } ) I  PUT (SX (S 

N) , SY (SN) ) , SHIPXi SXA (SN) - 

SX  <SN) I SYA (SN) -SY (SN) i SOT 

0  600 

IF  SN-0  THEN  RETURN 

IF  RND(1)>.5  THEN  PUT(SX( 

BN) , SY (SN) > , SHIPXl BN-BN-1 

1  IF  SN<0  THEN  SN=0 
FDR  L0DP=1  TD  SN 
GOSUB  290 

IF  RND(1)>.95  THEN  MX (LOO 

P)-INT(10«RND(l)-5)lMY(LO 

OP) -INT ( 10«RND ( 1 ) -S) 

SX (LDDP) =SX (LOOP) +MX (LOOP 

) I  BY (LOOP) -BY (LOOP) +MY (LQ 

npi 

IF  ABS( (X+3)-(SX(LaOP)+10 

))<3  AND  ABS((Y+3)-(SY(L0 

0P)+9))<3  THEN  MX (LOOP) — 

MX (LOOP): IF  RND{1)<.5  THE 

N  MY  (LOOP)— MY  (LOOP) 

IF  SX(LaOP)<2  OR  SX(LQaP) 

>250  THEN  MX(LOOP)=-MX(LO 

OP) 1 SX (LOOP) =SX (LOOP) +MX ( 

LOOP) 

IF  SY(LD0P)<2  OR  SY(LODP) 

>85  THEN  MY  (LOOP)— MY  (LOO 

P) iSY (LOOP) -SY (LOOP) +MY (L 

OOP) 

IF  SX(LOOP)<0  THEN  SX(LOO 

P)-0 

IF  SX(LOOP)>290  THEN  SX (L 

OOP) =290 

IF  SY(LOOP)<0  THEN  SY (LOO 

P)=0 

PUT (SXA (LOOP) , SYA (LOOP) ) , 

BHIPXi PUT (SX (LDDP) , SY (LOO 

P) ) , SHIPX! SXA (LOOP) =SX (LO 

DP ) s  S YA ( LOOP ) =S Y ( LOOP ) 

NEXT 

IF  RND(l)<(DL/20)+SN/10-. 

1  AND  SN>0  THEN  GOSUB  750 

RETURN 

REM  tt  enemy  -fire 

BNB=INT (SN«RND< 1 ) +1 ) 

HX=INT (300*RND ( 1 ) ) : HY=INT 

«B5«RND ( 1 ) ) ! PUT ( X , Y) , SIGH 

TX 

FOR  P=l  TD  SN:PUT(SX(P),S 

Y{P) ), SHIPX: NEXT 

PUT(HX,HY) , INFIX: LINE (HX+ 

10,HY+2)-(SX(SNB)+10,SY(S 

NB)+12) ,2:LINE-(HX+10,HY+ 

IB)  ,2 

COLOR  4sPUT(HX,HY) , INFIX: 

LINE (HX+10, HY+2) - (SX (SNB) 

+10,aY(SNB)+12) ,0iLINE-(H 

X+10,HY+18) ,0 

LINE (0,130) -(80, 110)! LINE 

-(240, 110)1 LINE-(319, 130) 

i COLOR  0 

LINE (0,60) -(41, 50): LINE- ( 

2B0, 50)! LINE- (319, 60) 

LINE(80, 110) -(10,0): LINE ( 

240,  H0)-(310,0) 

FDR  TIM=180  TD  20  STEP-4: 

SOUND  255-TIM, .llNEXT 

PUT<X,Y) ,SIGHTX:FOR  P=l  T 

D  SNlPUT(SX(P) ,SY<P)) ,SHI 

PXtNEXT 

ENE=ENE-4: IF  ENE<=0  THEN 

GOSUB  1500  ELSE  LINE (91 +E 

NE, 180) -(229, 1B4),0,BF 

RETURN 

REM  ««  THE  SHIP 

FOR  LODP=l  TD  150:PSET(32 


0tRND ( 1 ) , 130«RND ( 1) > , 3tRN 

D(l)+llNEXT 

6L  890  LINE(0,  130)-(80,  110):LINE 

-(240,110) lLINE-(319, 130) 

6P  900  LINE  (0,60)-(41,50)!  LINE- ( 

280,50) sLINE- (319, 60) 
KP  910  LINe(80,I10)-(10,0) :LINE< 

240, 110>-<310,0) 
HA  920  LINE(40, 199)-(a0,190) !LIN 
E-<240, 190) t LINE- (280, 199 
) 
HC  930  LINE(150,  116)-(230,  153),0 
,BF> LINE (149, 115) -(231, 15 
4),,B 
OE  940  PAINT  (160,  180),  3,  3 
NL  950  LINE(0, 131)-C80,111),0:LI 
Ne-(240,111),0!LINE-(319, 
131), 01  LINE (80, 111) -(80, 1 
99) ,0:LINE(240, lll)-(240, 
199), 0 
EH  960  LINE(90,179)-(230, 185) ,0, 
BF:LINE(91, 180)-(229, 184) 
.l.BF 
DC  970  LINE  (90,  158) -(230,  164),  0, 

BF 
01  980  LINE<151,  145)-C156,  140)  ,  1 
:LINE-(170, 140) , ltLINE-<l 
80, 135) , 1 1  LINE- < 185, 131 )  , 
1: LINE- (225, 131 ) , liLINE- ( 
220, 135), it  LINE- (225, 140) 
,ll LINE- (180, 140), 1 
HH  990  LINE-(165,150) , 1:LINE-(15 
5,150), liLINE-(lSl, 145), 1 
! LINE- (163, 145), 1:LINE-(1 
68, 140), 1 
BE  1000  LINE  (190,  131)-(200,  117) 
, liLINE-(210, 117), 1: LINE 
-(210,131) , li LINE (190, 13 
5)-(210, 135) , lsLlNE-<220 
,1S2), l3LlNE-(200, 152) ,1 
« LINE- (190, 135), 1 1  LINE (1 
94,140)-(212, 140),0 
FE  1010  PAINT(155,143),3, liPAINT 
(170,145)  ,CHR»<I<H77)+CHR 
«(&HDD), 1:PAINT(210,145) 
,  CHR«  (I<H1 1 )  +CHR*  (8<H44) ,  1 
1  PA  I  NT  (205,  120),CHR«(8<H6 
6)+CHR«(8<H99),  1 
KH  1020  FOR  LQDP=90  TO  140  STEP 
15i CIRCLE (LOOP, 150) ,3, Is 
PAINT (LOOP, 150), l,l! NEXT 
n  1030  LINE(105, 143)-(140, 117) , 
0,BF:FDR  LODP=105  TD  140 
STEP  3!LINE(L00P,143)-( 
LOOP, 117) ,3: NEXT 
K  1040  LO=i60!FDR  LOaP=70  TD  30 
STEP  -4:LD=LQ+.B:LINE(L 
OOP ,LD)-(70,120+(70-LOOP 
) ) ,0iNEXTiLINEt30,LO)-(3 
0, 130), 0: LINE- (70, 120),0 
!  PAI  NT  ( 50 ,  1 40 )  ,  CHRS  ( S(H66 
)  +CHR«  ( S.H99 )  ,  0 
J6  1050  CIRCLE(30, 180) ,5, 1:PAINT 
(50.180) , 1, l!LINE(50, 180 
)-(43,175) ,0: CIRCLE (50, 1 
80), 10,0 
EH  1060  La=130!FOR  L00PA=1  TO  2: 
FOR  LDDP=260  TO  310  STEP 
15: L0=L0+4: CIRCLE (LOOP, 
LO) ,4,1s  PAINT (LOOP , LO) , 1 
(IsNEXT  LOOP: LD=1 45: NEXT 
LOOPA 
KP  1070  LINE(240,  153)-(319,  175)  , 

0 
HH  1080  LO=160:FOR  L00PA=1  TO  2: 
FOR  LDOP=260  TO  310  STEP 
1 5  J  L0=LO+4 1 L I NE ( LOOP , LO 
) - (LODP+6, LO+1 ) , 1 : LINE- ( 
LO0P+6,L0+a) ,1:LINE-(LD0 
P,La+7), 1:LINE-(LD0P,L0) 
, 1 : PAINT (LODP+2, La+2) , 1 , 
liNEXT  LDDP:L0=175!NEXT 
LOOPA 
J6  1090  RETURN 
KP  1100  REM  t*  explosion 


•^Il' 

JUSI 

WITH  MEMBERSHIP 


-^^- 


Now  you  can  own  any  movie  here  for 
just  $4.95  with  membership  in  the  CBS 
Video  Club!  Tliat's  less  than  the  price  of  a 
single  movie  ticket,  less  than  the  price  of 
most  rentals,  and  it's  yours  for  keeps! 

Choose  from  the  best,  too.  The  Empire 
Strikes  Back,  Romancing  the  Stone,  Splash 
and  more.  There's  no  membership  fee,  and 
you  don't  have  to  buy  a  lot  of  movies. 

Just  two  more  within  the  next  year. 
The  movies  you  order  will  be  mailed 
and  billed  at  regular  Club  prices  which 
currently  range  from  $39.95  to  $79.95 
per  cassette— plus  shipping  and  handling, 
(Extra-long  films  and  specials  may  cost 
a  bit  more. ) 

BOWHS  PLAW-SAVE  50%  ~ 

After  buying  two  movies  at  regular  Club 
prices  in  the  next  year,  you  can  cancel.  Or 
stay  with  us  and  save  even  more  under  our 
Bonus  Plan.  With  each  movie  you  buy,  the 
plan  currently  allows  you  to  help  yourself  to 
another  movie  of  equal  value  or  less  at  50% 
off.  And,  right  now,  save  up  to  $50  more- 
see  the  Advance  Bonus  box  above. 


About  every  four  weeks  (up  to  13  times 
a  year)  we  send  you  our  CBS  Video  Club 
Magazine,  reviewing  our  Director's  Selection 
plus  many  alternate  movies. 

CHOOSE  FROM  HUNDREDS 
OF  HIT  MOVIES 

If  you  want  the  Director's  Selection, 
don't  do  a  thing.  It  will  arrive  automatically 
If  you  prefer  an  alternate  title,  or  none  at  all, 
just  return  the  card  always  provided  by  the 
date  specified. 

You'll  always  have  two  fiill  weeks  to  decide. 
And  a  toll-free  number  to  call  if  you  have  any 
questions  or  service  requests.  (If  you  ever  re- 
ceive a  tape  that  you  had  less  than  two  weeks 
to  consider,  send  it  back  at  our  expense. ) 

Join  today  and  we'll  send  your  movie  for 
just  $4.95,  along  with  details  of  how  the  Club 
works,  if  you're  not  satisfied,  return  every- 
thing within  10  days  for  a  full,  prompt  refund 
—no  further  obligation. 

For  faster  service,  use  your  credit 
card  and  our  toll-free  number  to  order. 
Just  call  1-800-457-0866  (in  Indiana 
1-800-742-1200).  Or  mail  coupon. 


Advance  Bonus: 

S/WE  UF  TO  $50  MORE! 

...  by  ordering  a  second  movie  right  now. 
Any  movie  listed  in  this  ad-yours  for 
just  $29. 95  plus  shipping  and  handling 
on  videocassette.  See  coupon  below. 


60  TOP  HITS  TO  CHOOSE  FROM 


1HE  EMPIRE  STniKES  BACK 


ROIUNCING  THE  STONE 


RISKY  BUSINESS 


MAKING  MICHAEL  MOtSON'S 

THRILLEH 


KM  KONG  ITilt  OrtglMll 


POUCE  ACADEMf 


MSEKIC  h  OLD  LACE 


THECOMAHCHEROS 


PRIVATE  EENJAMiN 


SHE  WORE  A  TaUW  RIBBON 


SELECTION 
HUMSER 


JANE  FONDA'S  WOnKOUI  CHAILENGE 


THE  AFRICAN  QUEER 


DH  COUEll  PONO 


THE  LONGEST  DAT 


CLOSE  EHCOUHnRS  OF  THE 
THtRD  RNO-Spiclal  Edition 


THE  RIGHT  STUFF 


NATIONAL  UMPOON'S  VACATION 


HIGH  nOAO  TO  CHINA 


ROOSTER  COGSURK 


NEVER  SAY  NEVER  AGAIN 


SELECTION 
KUMBER 


ROIIN  NOOn  IWlB  Dlnm) 


EXCALIEUR 


BACHELOR  PARTT 


REVENGE  OFT"!  HERDS 


OREVSTOKE-THE  LFGEHO  OF  TARZAN. 
LORODFTHEAPES 


EDUCATING  RITA 


THE  ROAD  WARRIOR 


TWIUGHT  ZOHE-nit  Moitc 


TtlE  MOPPETS  TAKE  MANHAnAN 


THE  MAGWFICEKT  SEVEN 


BUTCH  CASSIOr  t  THE  SUNDANCE  KID 


THE  MALTESE  FALCSH 


SELECTIDN 
NUMBER 


CBS  VIDEO  CLUB 

14U0  NorLh  Freittidge  Avenue,  Tene  Hautt,  IN  478U 

CBS  VIDEO  CLUB 

Depl.  62E,  RO.  Box  UU.  Terre  Haute,  [N  478R 

Yes,  please  enroll  me  In  the  CBS  Video  Club  under  the 
temis  outlined  in  this  adveitisement.  As  a  meitiber, 
i  ne«l  buy  jus!  Iwo  more  movies  at  regular  Club 
pnces  within  the  next  year. 

Check  one:  D  BETA 
DVHS 

Send  ire  movie  # for  S4.95 


Please  check  how  payini;; 

n  My  check  is  enclosed. 

D  Charge  my  intrtxiuclQryinovie(s) 
and  future  Club  purchases  to: 
D  MasterCard    Q  Diners  Club 
D  American  Express    D  VISA 

Account  # 


Z54/Z56 

ZS5/Z57 


Expiratmn  Date- 
Signature 


G  Also  send  me  as  my  Advance  Bonus: 

movie  # for  $29. 95  on 

videocassette  plus  $3.00  shipping  and  handling 
which  I'm  adding  to  my  above  payment. 


Name- 


Address— 
City 


-Stale- 


Sp- 


-Phonc (_ 


-)- 


■Note:  CBS  Video  Club  reserves  the  ri^t  to  reject  any  appli- 
cation or  cancel  any  memlwrship.  Offer  limited  to  continental 
tJ.S.  (exchiding  Alaska),  Applicable  sales  tax  added  to 
all  orders. 


hj 

1110 

PB 

1120 

yH 

1130 

AF 

1140 

BH 

1150 

JK 

11&0 

CB 

1170 

DD 

lie0 

a   1190 

IP  1200 
AE  1Z10 
LI  1220 

KE  1230 

EC  1240 

CD  1250 

JB  1260 

a  1270 

nA  12B0 

8P  1290 
AC  1300 

JC  1310 

FL  1320 

HF  1330 

Cn  1340 
JA  1350 
BK  13£>0 
BD  1370 
FA  1380 

IE  1390 


CK  1400 

FJ  1410 
HA  1420 
IH  1430 

m   1440 

BJ  1450 
6C  1460 


ECfl=EC 

FDR  C0=1  TO  EC 

IF  EX(CO>=0  AND  EY(CD)=0 

THEN  GOTO  1190 
IF  DC (CO) =0  THEN  PUTCEXf 
CO)  ,EY«CO))  .HflV. 
IF  DC(C0>=1  THEN  PUT (EX < 
CO) ,EY<CO) ) .HflXiPUTCEX (C 
0)  ,EV(CD)  ),HBy. 
IF  DC (CD) =2  THEN  PUT (EX ( 
CO)  ,EY(CO))  ,HB7.;PUT(EX(C 
0)  ,EY(CO)),HC-/. 
DC(C0)=DC(C0)+1 
IF  DC (CO) =4  THEN  PUT (EX ( 
CD)  ,EY{C0))  ,HC'/.!EC=EC-1: 
FOR  La=CO  TO  EC+1:DC(LD) 
-DC(L0+1) :EX(L0)=EX(LD+1 
)iEY(LD)=EV(LO+l) :NEXT  L 
Di DC (EC+1 ) =0! EX (EC+ 1 ) =0! 
EY(EC+1)  =0 
NEXT 
RETURN 

REM  *t  scoring  far  a  hit 
ENE=ENE+8:IF  ENE>139  THE 
N  ENE=139 

LINE (90+ENE, 180) - (83+ENE 
, 1B4) , 1 , BF: SC0=SCO+3 
IF  SC0>=l3i  THEN  BOSUB  1 
2B0 

LINE(B9+SC0, 159)-(91+SCD 
,  14.3),  l.BF 
RETURN 

REM  t*  promotion 
LINE (90, 15B)- (230,  164)  ,0 
,BF!SC0=3:PUT(127, 167) , I 
NVERX, PRESET 
RANK=RANK+1 

IF  RANK=1  THEN  LOCATE  22 
,  19sPRINT"Major" 
IF  RANK=2  THEN  LOCATE  22 
, 17:PRINT"CQlQnel  " 
IF  RANK=3  THEN  LOCATE  22 
,17lPRINT"General " 
IF  RANK=>4  THEN  LOCATE  2 
2, 17!PRINT"Warrior" 
PUT  (127,  167)  ,  INVER7. 
RETURN 

REM  »»  title  page 
A=STRIG(0) 

LOCATE  5,13:PRINT  "The  L 
ast  Warrior" 

LOCATE  B, 12:PRINT"Move  t 
ha  JDV«tick": LOCATE  9,9: 
PRINT"to  the  upper-left 
corner  ": LOCATE  10, 12: PR 
INT"and  press  button" 
IF  STRIE(0)=-l  THEN  J5X1 
=STICK(0)  :  JSYli'STlCKd)  : 
A=STRJI3(0)  ELSE  GOTO  140 
0 

FDR  WAI=1  TO  B00:NEXT  WA 
I 

LOCATE  9,9:PRINT"tD  the 
lower-right  corner" 
IF  STRI6(1)=-1  THEN  JSX2 
=STICK (0) : JSY2=STICK ( 1 ) 
ELBE  GOTO  1430 
IF  JSX2<=JSX1  OR  JSY2<JS 
Yl  THEN  BDTD  1390 
LOCATE  S,  12:  PRINT  SPCdB 
):  LOCATE  9,9!  PRINT  SPCi:2 
5)! LOCATE  10, 12: PRINT  SP 
C(1B)!L0CATE  5,13!PRINT 
SPC(16) :DL=1 

TFX=ABS(313/ (JSX1-JSX2) ) 
1 TFY=ABS (103/ ( JSY1-JSY2) 


BF    1470    A=STRIG(0) 

KL    14B0    RETURN 

PO   1490    REM    »«    end 

El    1500   LINE(91,180>-(229,1B4),0 

,BF 
OF   1510   LOCATE    5, 16:PRINT"Game   O 
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DA  1520  IF  RANK-0  THEN  LOCATE  9, 
14«PRlNT"R«nkt    Captain" 

LJ  1530  IF  RANK=1  THEN  LOCATE  S, 
ISi PRINT "Rank!    Hajor" 

IJ  1540  IF  RANK=2  THEN  LOCATE  8, 
14iPRINT"R«r>kt    Colonel" 

PH  1550  IF  RANK=3  THEN  LOCATE  B, 
14iPRINT"R«nki    a»ner«l" 

PF  1560  IF  RANK">4  THEN  LOCATE  8 
, J4iPHINT"R«nki    Warrior" 

HP  1570  LOCATE  9,  16t  PRINT"Point5 
i"j INT (SCO/ 1.36) 

P!    15B0    FOR    L=l    TO    25 

PF  1590  SOUND  250+L«3,  .01;  SOUND 
215-L«7,.3i SOUND  200, . 1 

m  1600  T=INTt50«RND(l)+20)iFDR 
LO-1  TO  TjNEXT  LD 

CC  1610  T=INT{5*RND(1)+4>!CDLDR 
T 

m   1620  NEXT 

Fit  1630  COLOR  0 

NO  1640  IF  STRiG(l)=0  THEN  1640 

DC  1650  FOR  LD0P=1  TD  SN:PUT(SX( 
LOOP ) , S¥  <  LOOP ) ) , SH I PX I NE 
XT.PUT(X,Y) .SIGHTX 

HJ  1660  LINE  (91,  1B0)- (229,  184),  1 
,BF 

LD  1670  LINE(90,15B)-(230,164),0 
,BF 

EE  16B0  RETURN  140 

J I  1690  END 

HI  1700  DATA  42,15,0,20,0,0,20,0 
,0,20,0,0,20,0,0,20,0,0, 
20,0,0,20,0,0,65,0,256,1 
6404,0,256, 16404,0,5376, 
21569,0,21504,5441,0, 163 
89, 276, 80, 21 , 20, 84, 80, 0, 
5,0,0,0,0 

KC  1710  DATA  42,15,0,4096,0,0,20 
4B0, 0, 0, 163B4, 0, 0, 1 6384, 
0,0,16385,0,0,16389,0,0, 
4240, 0, 0, 8261 , 0, 5376, -20 
SB2, 0, 21509, 20649, 0, 1640 
5, 52B2,0,S0, 1414,0,0,272 
,B0, 0,256,80,0,0,20,0,0, 
0,0 

KB  1720  DATA  42,19,0,0,16385,0,0 
,5,0,0, 17,0,0,136,0,256, 
16,0,256,64,0,-23294,0,0 
, 8454, 40, 6400, -23984, 12B 
,21765,-22174,64, 16465,2 
2232, 0, 0, 157B, 64, 0, 1696, 
16,0,0,80,0,0,32,0,0,37, 
0,0,7,0,0,5, 0,0, 1,0,0 

A9  1730  DATA  60,26,0,0,0,0,0,0,0 
,0,0,0, -32640, 0, 0, 0, 9218 
,0,0,0,8448, 8192,8192,0, 
-23552, -32768, 0, 0, 16386, 
0,0,0,7,0,544,0,24,0,34, 
-32502, 96, 0, 2560,-22903, 
128,0 

DJ  1740  DATA  -28150,-30552,2,0,5 
716, -23932, 8, 0, 25089, -21 
872, 0, 0, 22786, -261 12, 0, 0 
, 4736, 6306, 0,0,512, 4608, 
0,0,512, 2560, 10368, 8192, 
512,-32256, 204B, 0, 0, 2560 
,0,0,0,512, 128,0,128,0,  1 
48, 8, 512, 0, 160, 32, -32768 
,0,24,0,0,0,32,0,0,2048, 
0,0 


Program  2:  The  Last 
Warrior,  64  Version 

Version  by  Kevin  Mykytyn,  Editorial 

Programmer 

Please  fefer  to  »he  "MLX"  orticle  before 

entering  this  listing. 

49152  ! 162, 000, 18 1,000, 15 7, 099, 087 
49158  ? 202, 202, 208, 248, 076, 137,055 
49164  : 201, 169, 147, 032, 210, 255, 002 


:-Ky::M 

■ ;  if*^   ■ '    *,'     '           7  ' 

SHIEVD    QDOBHa 

Enemy  ships  are  approaching  your  scout 
vessel  in  the  Commodore  64  version  of 
"The  Last  Warrior." 


49170  ! 169, 000, 141, 170, 002, 141, 129 

49176  : 171, 002, 141, 168, 002, 141, 137 

49182  : 169,002, 141,172,002, 133,137 

49188  : 191, 160, 023, 169, 000, 15 3, 220 

49194  ! 000, 212 , 136 , 016 , 248 , 169 , 055 

49200  ! 047 , 141 , 024 , 212 , 169 , 242 , 115 

49206  : 141, 023, 212, 169, 240, 141, 212 

49212  : 013, 212, 169, 128, 141, 018, 229 

49218  : 2 12, 169, 255, 141, 015, 212, 046 

49224  : 169, 026, 141, 005, 212, 169, 026 

49230  1003,141,001,212,032,082,037 

49236  1194,03  2,065,193,173,098,071 

49242  : 202 , 208 , 009 , 032 , 098 , 194 , 065 

49248  :032, 161,194,032,010, 196, 209 
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.002,073 

,255 

,133,003,173,023 

.060,003 

,056 

253,060,003,031 

.197,003 

,176 

004,197,002,231 

.176,017 

,173 

070,003,056,153 

.253,070 

,003 

197,003,176,110 

.015,197 

,002 

176,002,144,206 

.009,202 

,203 

221,169,127,100 

.141,021 

,203 

,096,169,255,060 

il41,021 

,203 

165,034,240,241 

.246,189 

,060 

003,141,066,143 

.003,139 

,070 

,003,141,076,182 

.003,169 

,020 

133,013,169,213 

.123,141 

,004 

212,169,129,239 

.141,004 

,212 

189,030,003,091 
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51180 
51186 
51192 
51198 
51204 
51210 
51216 
51222 
51228 
51234 
51240 
51246 
51252 
51258 
51264 
51270 
51276 
51282 
51288 
51294 
51300 
51306 
51312 
51318 
51324 
51 330 
51336 
51342 
5134B 
51354 
51360 
51366 
51372 
51376 
51384 
51390 
51396 
51402 
51408 
51414 
51420 
51426 
51432 
51438 
51444 
51450 
51456 
51462 
51468 
51474 
51480 
51486 
51492 
51498 
S1504 
51510 
51516 
51522 
51528 
51534 
51540 
51546 
51552 
51558 
51564 
51570 
51576 
51582 
51588 
51594 
51600 
51606 
51612 
51618 
51624 
51630 
51636 
51642 
5164B 
51654 
51660 
51666 
51672 
51678 
51684 
51690 
51696 
51702 
51708 
51714 


:L41 

966 

003 

173 

170 

002 

043 

:024 

105 

100 

141 

170 

002 

016 

:173 

171 

002 

105 

000 

141 

072 

:171 

002 

173 

169 

002 

201 

204 

:004 

240 

018 

238 

168 

002 

162 

:173 

168 

002 

201 

019 

208 

013 

!008 

169 

000 

141 

168 

002 

248 

:2  3a 

169 

002 

032 

230 

197 

122 

:144 

167 

000 

146 

000 

002 

231 

:004 

000 

009 

033 

032 

000 

112 

:142 

000 

018 

056 

07  2 

005 

077 

:065 

000 

065 

010 

212 

022 

164 

:121 

192 

002 

042 

068 

084 

049 

:14B 

163 

001 

162 

066 

020 

111 

!20e 

144 

006 

100 

004 

001 

015 

!l36 

192 

002 

036 

008 

000 

188 

:128 

128 

000 

040 

165 

191 

216 

:2  40 

107 

166 

253 

224 

159 

207 

:176 

092 

164 

254 

192 

040 

238 

•:144 

086 

192 

150 

176 

082 

156 

:169 

003 

133 

016 

152 

056 

117 

:233 

030 

133 

021 

165 

253 

173 

:109 

e27 

2)2 

201 

140 

176 

209 

=  247 

201 

020 

144 

243 

169 

118 

il29 

141 

011 

212 

141 

008 

254 

i212 

032 

200 

194 

072 

169 

241 

:010 

141 

033 

208 

104 

032 

152 

!20£: 

194 

032 

162 

195 

169 

070 

;033 

141 

033 

208 

165 

187 

114 

!005 

188 

208 

003 

076 

063 

185 

i231 

165 

187 

056 

233 

100 

078 

:133 

187 

165 

188 

233 

000 

048 

:133 

188 

016 

006 

169 

000 

172 

:133 

187 

133 

188 

169 

000 

220 

:133 

191 

169 

016 

141 

011 

077 

:212 

096 

133 

002 

138 

072 

075 

:169 

000 

133 

003 

162 

003 

154 

:006 

002 

038 

003 

202 

208 

149 

s249 

165 

002 

024 

105 

208 

193 

:141 

046 

201 

165 

003 

105 

107 

:053 

141 

047 

201 

104 

,133 

131 

:247 

132 

248 

169 

000 

,133 

131 

:249 

133 

250 

133 

251 

162 

130 

:015 

006 

247 

038 

248 

120 

144 

:248 

165 

249 

101 

249 

133 

109 

:249 

165 

250 

101 

250 

133 

118 

:250 

165 

251 

101 

251 

133 

127 

:251 

216 

088 

202 

016 

227 

238 

:162 

002 

181 

249 

072 

074 

240 

5  074 

074 

074 

032 

034 

201 

251 

:104 

041 

015 

032 

034 

201 

195 

s202 

016 

237 

096 

134 

002 

205 

1010 

010 

010 

168 

162 

007 

147 

:185 

211 

198 

141 

255 

255 

007 

:238 

046 

201 

208 

003 

238 

214 

!047 

201 

200 

202 

016 

2  38 

190 

:166 

002 

096 

162 

255 

154 

127 

:169 

128 

141 

004 

212 

141 

093 

:011 

212 

169 

129 

141 

004 

226 

:212 

162 

000 

142 

066 

003 

151 

:142 

076 

003 

189 

099 

202 

027 

!l49 

000 

202 

208 

248 

162 

035 

:150 

173 

027 

212 

041 

007 

194 

tl33 

002 

173 

017 

208 

041 

164 

:248 

005 

002 

141 

017 

208 

217 

:141 

022 

208 

141 

033 

208 

099 

!l65 

162 

197 

162 

240 

252 

018 

1 142 

001 

212 

202 

208 

221 

088 

:169 

016 

141 

004 

212 

032 

194 

!l29 

255 

032 

138 

255 

169 

092 

:027 

141 

017 

208 

169 

200 

138 

:141 

022 

208 

169 

000 

141 

063 

!033 

208 

173 

098 

202 

240 

066 

1054 

162 

008 

160 

014 

024 

072 

:032 

240 

255 

169 

042 

160 

042 

:202 

032 

030 

171 

173 

171 

185 

:002 

174 

170 

002 

032 

20  5 

253 

:189 

162 

013 

160 

013 

024 

235 

1032 

240 

255 

169 

092 

160 

116 

:202 

032 

030 

171 

173 

169 

207 

:002 

010 

170 

189 

249 

201 

001 

:168 

189 

248 

201 

032 

030 

054 

:171 

162 

015 

173 

098 

202 

013 

:203 

002 

162 

011 

160 

011 

008 

1024 

032 

240 

255 

169 

074 

254 

:160 

202 

032 

030 

171 

173 

234 

:000 

220 

074 

176 

250 

076 

012 

1013 

192 

002 

202 

010 

202 

099 

1018 

202 

026 

202 

034 

202 

168 

J067 

065 

080 

084 

065 

073 

180 

51720 
51726 
51732 
51738 
51744 
51750 
51756 
51762 
51768 
51774 
51780 
51786 
51792 
51798 
51804 
51810 


:078 
!074 
1076 

!071 

1076 
:073 
:06  5 
:069 
il57 
il57 
:067 
:154 
1032 
!032 
:0a2 
:000 


,000,032, 
,079,082, 
,079,078, 
,069,078, 
,000,087, 
,079,082, 
,077,069, 
,082,017, 
,157,157, 
,157,157, 
,079,082, 
,080,082, 
,085,080, 
,080,076, 
,065,078, 
,013,013, 


032,077, 
000,067, 
069,076, 
069,082, 
065,082, 
000,129, 
032,079, 
017,017, 
157,157, 
158,032, 
069,032, 
069,083, 
032,084, 
065,089, 
075,032, 
013,013, 


065,036 
079,139 
000,142 
065,204 
082,168 
071,216 
086,196 
157,153 
157,230 
083,038 
000,141 
083,113 
079,216 
000,172 
000,168 
013,163 


Program  3:  The  Last 
Warrior,  Atari  Version 

Version  by  Kevin  Mykytyn,  Editorial 

Programmer 

Please  refer  to  the  "MIX"  article  before 

entering  ttiis  listing. 

8192 t 173, 148, 002, 024, 105, 040, 236 
8198: 133, 067, 173, 149, 002, 105, 123 
8204:000,133,068,032,017,033,039 
8210:032,083,036,032,139,033,117 
8216:076,002,039,032,083,033,033 
8222:032,144,035,032,210,032,003 
8228:162,000,169,100,141,000,096 
8234:006,141,005,006,169,000,113 
8240:141,016,006,206,022,006, 189 
8246:  208,  01 2, 173',  023,006,141,105 
8252:022,006,03  2,216,033,03  2,145 
8258:223,037,03  2,227,035,03  2,140 
8264x123,037,169,000,133,077,099 
82701173,25  2,002,048,224,169,178 
8276:255,141,252,002,238,250,198 
8282:006,173,252,002,048,251,054 
8288:169,255,141,252,002,206,097 
8294:250,006,240,201,138,072,241 
8300:024,105,044,141,134,03  2,076 
8306:141,191,03  2,189,200,006,105 
8312:141,13  3,03  2,169,000,13  3,216 
83 18: 204, 141, 190, 032, 160, 016, 101 
8324:153,25  5,25  5,13  6,208,250,109 
8330:189,016,006,133,203,168,085 
8336 1185,201, 03 2, 15 7, 008, 208, 167 
8342:160,004,006,203,038,204,253 
83481136,208,249,165,203,024,117 
8354:105,000,133,203,165,204,204 
8360 1 105 , 040 , 133 , 204 , 139 , 000 , 071 
8366 : 006 ,157,000, 208 , 189 , 005 ,227 
8372:006,157,200,006,170,160,111 
8378:000,177,203,157,255,255,209 
8384:232,200,192,016,208,245,005 
83901104,170,096,000,000,000,056 
8396:000,000,000,000,000,000,204 
3402:169,062,141,047,002,169,032 
8403:004,141,111,002,162,003,127 
8414:189,013,033,157,192,002,040 
8420:202,016,247,169,003,141,233 
8426  J029 , 208, 169 , 040 ,141,007, 060 
8432:212,133,204,169,000,133,067 
84381203,162,008,160,000,145, 156 
8444 1203, 136, 208, 251, 202, 208, 180 
8450:248,185,044,039,153,000, 159 
8456:040,136,208,247,096,127,094 
8462:127,127,127,169,064,133,249 
8468 1160,162, 096, 169, 01 2, 157, 008 
8474(066,003,03  2,086,223,162,091 
84801096,169,003,157,066,003,014 
8486:169,099,157,068,003,169,191 
8492:033,157,069,003,169,007,226 
8498:157,075,003,169,023,157,127 
8504:074,003,032,086,228,173,140 
8510:048,002,133,014,173,049,225 
8516:002,13  3,015,160,038,169,123 
8522:006,145,014,200,192,091,210 
8528:208,249,096,160,037,135,247 
8534:101,033,145,067,136,016,072 
8540:248,169,007,141,198,002,089 
8546:096,033,058,000,000,000,079 
8552 i 179, 163, 175, 178, 165, 000, 196 


85581000,144,144,144, 
85641 144, 144, 000,000, 
8570:000,000,051,040, 
85761044,036,000,000, 
8582:021,016,016,016, 
8588:001,141,029,006, 
8594:006,162,053,160, 
8600:000,141,047,006, 
8606:032,145,034,162, 
8612:080,169,000,141, 
8618:169,140,032,145, 
8624:159,160,050,169, 
8630:047,006,169,125, 
8636:034,162,125,160, 
8642:034,141,047,006, 
8648:032,145,034,162, 
8654:050,03  2,145,034, 
3660:141,043,006,096, 
3666:002,074,176,010, 
867  2:006,224,03  5,240, 
8678:005,006,074,176, 
8684:005,006,224,175, 
8690:238,005,006,074, 
8696:174,000,006,224, 
8702:003,206,000,006, 
8708:010,174,000,006, 
8714:240,003,233,000, 
8720:132,002,203,005, 
8726:142,021,006,096, 
8732:173,029,006,162, 
8738:202,208,252,141, 
8744:162,005,032,123, 
8750:186,134,187,162, 
8756:128,034,024,101, 
8762:186,138,101,187, 
8768:104,074,144,006, 
8774:006,078,043,006, 
8780:012,078,048,006, 
8786:006,078,048,006, 
8792:006,024,101,186, 
8798:230,187,024,101, 
8304:186,165,187,101, 
8810:187,160,000,177, 
8816:043,006,208,006, 
8822:006,076,125,034, 
8823:006,145,186,096, 
8334:141,026,006,152, 
8840:026,006,202,208, 
8846:026,006,096,141, 
3352:072,138,072,152, 
8853:032,006,142,035, 
3864:030,006,140,03  7, 
8870:000,141,034,006, 
8876:006,141,046,006, 
3882:006,141,039,006, 
8888:006,205,03  2,006, 
8894:169,001,141,128, 
8900:032,006,056,237, 
8906:141,168,006,076, 
8912:169,000,141,128, 
8918:038,006,056,237, 
8924:141,168,006,173, 
8930:056,237,039,006, 
8936:006,173,035,006, 
8942:037,006,172,043, 
8948:016,205,044.006, 
8954:236,045,006,240, 
8960:044,006,142,045, 
8966:032,026,034, 173, 
3972:203,021,173,034, 
3978:109,168,006,141, 
3984:173,035,006,105, 
8990:035,006,076,053, 
8996:034,006,056,237, 
9002:141,034,006,173, 
9008:233,000,141,035, 
9014:036,006,056,237, 
9020:141,036,006,173, 
9026:233,000,141,037, 
9032:046,006,208,157, 
9038:104, 170,104,096, 
9044:032,106,032,202, 
9050:096,216,173,250, 
9056:009,032,082,035, 
9062:036,032,109,035, 
9063:223,238,246,006, 
9074:006,141,004,210, 


144,144,062 

000,000,148 
041,037,035 
000,016,224 
000,169,116 
141,043,245 
080,169,008 
169,023,026 
110,160,033 
047,006,095 
034,162,084 
035,141,122 
032,145,194 
035,169,105 
169,033,117 
000,160,221 
169,000,124 
173,120,023 
174,005,147 
003,206,170 
010,174,163 
240,003,121 
176,010,239 
053,240,177 
074,176,207 
224,195,101 
006,173,158 
162,001,014 
138,072,241 
006,010,158 
048,006,123 
034,133,022 
003,032,238 
186,133,146 
133,137,222 
078,048,006 
074,144,170 
078,048,090 
073,048,090 
144,002,039 
088,133,089 
089,133,193 
186,174,222 
07  7,048,244 
013,048,164 
169,000,214 
010,046,255 
249,174,233 
033,006,199 
072,142,028 
006,140,003 
006,169,036 
141,036,012 
173,047,079 
173,038,069 
176,018,115 
006,173,040 
038,006,059 
223,034,082 
006,173,057 
032,006,077 
030,006,232 
141,176,113 
170, 173,027 
006,203,193 
208,005,216 
010,141,160 
006, 168,155 
128,006,149 
006,024,222 
034,006,226 
000,141,228 
035,173,152 
168,006,031 
035,006,131 
006,173,124 
176,006,059 
037,006,203 
006,206,177 
104,168,249 
162,003,205 
016,250,210 
006,208,015 
032,115,145 
076,098,232 
173,246,221 
201,045,209 
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Nofj'ce  ftow  distant  aliens  appear  smaller 
and  nearby  ships  loom  larger  in  the 
Atari  version  of  "The  Last  Warrior." 


9080: 
9086: 
9092: 
9098: 
9104: 
9110: 
9116: 
9122: 
9128: 
9134: 
9140: 
9146: 
9152: 
9158: 
9164: 
9170: 
9176: 
9182: 
9188: 
9194: 
9200: 
9206: 
9212: 
9218: 
9224: 
9230: 
9236: 
9242: 
9248: 
9254: 
9260: 
9266: 
9272: 
9278: 
9284: 
9290: 
9296: 
9302: 
9308: 
9314: 
9320: 
9326: 
9332: 
9338: 
9344: 
9353: 
9356: 
9362: 
9363: 
9374: 
9380: 
9386: 
9392: 
9398: 
9404: 
9410: 
9416: 
9422: 
9428: 
9434: 
9440: 
9446: 
9452: 
9458: 
9464: 
9470: 


208,005,169, 
006,173,247, 
206,247,006, 
041,239,141, 
160,091,162, 
032,092,228, 
023,006,169, 
006,141,040, 
006,141,250, 
032,049,037, 
208,006,141, 
208,242,169, 
169,040,133, 
160,000,152, 
208,251,230, 
246,169,003, 
169,004,141, 
255,141,252, 
021,006,240, 
141,000,210, 
169,100,141, 
021,006,169, 
036,169,002, 
169,002,032, 
002,032,055, 
141,248,006, 
169,000,141, 
141,029,006, 
079,173,000, 
045,072,173, 
233,028,074, 
104,032,145, 
029,006,162, 
076,033,036, 
208,012,160, 
032,086,038, 
208,239,096, 
203,165,089, 
012,160,000, 
201,020,176, 
145,203,200, 
204,202,208, 
003,189,208, 
076,042,037, 
208,027,189, 
125,168,006, 
189,000,006, 
000,006,201, 
032,049,037, 
149,006,056, 
157,149,006, 
233,000,157, 
015,176,003, 
189,144,006, 
154,006,024, 
157,154,006, 
105,000,157, 
186,144,030, 
144,025,189, 
253,176,006, 
189,005,006, 
005,006,201, 
032,049,037, 
203,054,169, 
006,189,016, 
144,039,173, 


020,141,246,141 
006,240,011,041 
074,074,074,045 
007,210,096,104 
035,169,007,000 
169,200,141,244 
000,141,021,004 
006,141,249,233 
006,162,003,224 
169,000,157,106 
030,208,202,207 
000,133,119,033 
120,162,008,056 
145,119,136,142 
120,202,208,143 
141,015,210,226 
008,210,169,149 
002,096,173,117 
044,169,025,221 
141,246,006,210 
001,210,206,043 
002,032,026,246 
032,055,036,070 
026,036,169,180 
036,169,002,048 
332,065,036,030 
001,210,096,125 
162,000,160,012 
006,056,233,067 
005,006,056,139 
141,047,006,061 
034,096,141,090 
159,160,079,139 
173,249,006,123 
035,162,003,136 
206,248,006,178 
165,088,133,241 
133,204, 162,018 
173,010,210,145 
004,041,003,031 
208,242,230,052 
237,096,162,195 
006,240,003,253 
189, 128,006,088 
149,006,024,219 
157, 149,006,233 
105,000,157,085 
205,144,030,220 
144,025,189,116 
253,168,006,028 
189,000,006,159 
000,006,201,255 
032,049,037,232 
208,027, 189, 177 
125,176,006,167 
189,005,006,199 
005,006,201,162 
032,049,037,172 
154,006,056,018 
157,154,006,202 
233,000,157,046 
020,176,003,129 
222,160,006,230 
020,157,160,242 
006,201,006, 160 
040,006,208,096 


9476:037,173,010,210,201,080,203 
9482:176,030,169,001,141,040,055 
9488:006,189,000,006,056,233,250 
9494:045,141,240,006,189,005,136 
9500:006,056,233,028,074,141,054 
9506:241,006,076,042,037,254,178 
9512:016,006,202,240,003,076,071 
9518:117,036,096,17  3,010,210, 176 
9524:157,000,006,17  3,010,210,096 
9530:201,180,176,249,157,005,002 
9536:006,160,000, 17  3,010,210,111 
9542:016,002,160,001,152,15  7,046 
9543:128,006,160,000,173,010,041 
9554:210,016,002, 160,001,152,111 
9560:157,144,006, 173,010,210,020 
9566:074,024,105,050,157,176,168 
95  72:006,173,010,210,074,024,085 

95  78:105,050,157, 168,006, 169,249 
9584:100,157,160,006,169,001,193 
9590:157,016,006,024,096,173,078 
9596:040,006,240,083,174,240,139 
9602:006, 240, 073, 224, 158, 176, 239 
9608 : 069 ,17  2, 241 , 006 ,192,021, 069 
9614 : 144 , 062 , 192 , 078, 176 , 058 , 084 
9620:15  2,056,233,020,141,047,029 
9626:006,173,240,006,109,010,186 
9632:210,201,185,176,246,201,099 
9638:055,144,242,169,003,141,152 
9644:029,006,032,14  5,034,072,234 
9650:169,055,141,200,002,104,081 
9656:032,145,034,032,212,037,164 
9662:169,000,141, 200,002,032,222 
9668:074,038,173,249,006,240,208 

96  74:003,076,126,038,169,000,102 
9680:141,040,006,096,162,007,148 
9686:160,000,136,208,253,202, 149 
9692:208,250,096,162,003,189,104 
9698:208,006,240,025,222,208, 111 
9704:006,208,030,03  2,049,03  7,082 
9710:238,250,006,03  2,106,032,134 
9716:169,000,141,250,006,141,183 
9722:030,208,076,009,038,189,032 
9728:012,208,041,001,240,003,249 
9734:076,013,038,202,208,213,244 
9740:096,169,000,141,030,208,144 
9746:173,021,006,240,242,0  32,220 
9752:048,038,169,007,157,016,203 

97  58:006,169,003,157,208,006,067 
9764:169,120,141,247,006,169,120 
97  70:150,141,006,210,208,217,206 
9776:160,014,138,072,162,004,086 
9782:056,177,067,105,000,201,148 
9788:154,144,002,169,144,145,050 
9794:067,136,202,016,240, 104,063 
9300:170,096, 160,034, 162,003 , 185 
9306:169,010,141,246,006,076,216 
9312:065,036,024,177,067,23  3,174 
9318:000,201,015,240,005,056,095 
9824:145,067,176,005,169,025,171 
9330:145,067,024,136,202,016,130 
9336:234,160,03  5,17  7,067,201,214 
9842:016,208,008,136,192,031,193 
9348 : 208, 245 , 238 , 249 , 006 , 096 ,  138 
9854:162,003,169,002,15  7,016,123 
9860:006,202,208,250,169,255,198 
9866:141,247,006,169,150,141,224 
9872:006,210,173,010,210,141, 126 
9878:200,002,041,007,170,139,247 
9884:001,040,160,000,145,014,004 
9890:173,247,006,208,23  5,169,176 
9396:112,145,014,169,000,141,237 
9902:200,002,160,022,185,150,125 
9908:039,145,067,200,192,038,093 
9914:208,246,032,030,039,160,133 
9920:024,185,164,039,145,067,048 
9926:200, 192,029, 203, 246, 160, 209 
9932:011,177,067,201,144,240,020 
9938:004,169,008,208,012,200,043 
9944:192,013,208,241,177,067,090 
9950:056,233,144,074,010,170,141 
9956:189,209,039,141,245,038,065 
9962:189,210,039,141,246,038,073 
9968:162,000,160,029,189,255,011 
9974:25  5,240,006,145,067,200,135 
9980:23  2,208,245,03  2,030,039,014 
9986:160,022,185,171,039,145,212 
9992:067,200,192,038,208,246,191 


il54, 

!l41. 


9998:173,1 

10004:132, 

10010 

10016 

10022:206, 

10028:000, 

10034:016, 

10040:000, 

10046:000, 

10052:008, 

10058:000, 

10064:000, 

10070:000, 

10076:000, 

10082:000, 

10083:000, 

10094:000, 

10100:028, 

10106:000, 

10112:000, 

10118:000, 

10124:000, 

10130:008, 

10136:000, 

10142:000, 

10148(148, 

10154:000, 

10160:033, 

10166:037, 

10172:050, 

10178:050, 

10184:041, 

10190:052, 

10196:039, 

10202:039, 

10208:041, 

10214:047, 

10220:047, 

10226:037, 

10232:000, 

10238:047, 

10244:048, 


32,002,208,2 
002,240,251, 
076,027,032, 
248,006,032, 
248,006,208, 
016,016,016, 
016,016,000, 
000,000,000, 
000, 000, 000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000, 000, 
000,000,000, 
008,023,000, 
000,000,000, 
000,000, 000, 
028,000,000, 
000,000, 000, 
000,008,008, 
000,000,000, 
000,000,000, 
028,062,085, 
000,000,000, 
040,068,048, 
066,148,066, 
000,000,000, 
045,037,000, 
050,000,000, 
033,046,043, 
037,051,051, 
050,037,034, 
047,046,219, 
233,039,241, 
035,033,048, 
046,000,045, 
050,000,035, 
046,037,044, 
046,037,050, 
055,033,050, 
050,000,000, 
064,080,096, 


51,173,185 

162,255,038 

169,255,227 

212,037,196 

248,096,026 

124,124,084 

000,000,098 

000,000,056 

000,000,062 

000,000,076 

000,000,074 

012,000,092 

000,000,086 

000,000,092 

000,000,134 

000,000,104 

000,008, 118 

000,000,172 

000,000,122 

028,034,206 

000,000,134 

000,008,143 

000,000,07  3 

000,000,152 

134,065,001 

036,020,136 

000,039,209 

047,054,136 

000,000,013 

000,048,152 

000,038,165 

053,052,211 

039,227,068 

039,249,028 

052,033,202 

033,042,175 

047,044,197 

000,039,193 

033,044,233 

050,041,221 

016,032,143 

112,000,143 


Program  4:  The  Last 
Warrior,  Apple  Version 

Version  by  Tim  Victor,  Editorial 
Programmer 

For  instructions  on  entering  this  iisting.  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  pubiistied  bimonthiy  in  computei. 


CF  100 


W  110 
3E  120 
13  130 


77  140 


:e 

150 

c* 

160 

7D 

170 

C2 

180 

IF 

190 

71 

200 

9C 

210 

!F 

220 

FC 

230 

4B 

240 

F3 

250 

7ft 

2&0 

D«  =  CHR«  <4)i  DIH  P*(B), 

PX (3) ,PY<3) ,P2  <3) , VX<3>  ,V 

Y(3) ,QX(3),QY(3),QZ(3>,R« 

(4) 

GOSUB  1000 

SH  =  5000: 5C  =  0 

P*(0)  =  '■/012"jP*(1>  =  "( 

)«+"iP«(2)  -  "!"  +  CHR»  ( 

34)  +  "#«"lP«(3)  -  "34" iP 

t(4)  -  "Xfc"iP*(5)  -  ",-" 

P»(6)  =  "5"sP*(7)  =  ".":P 

«(8>  -  ""■• 

BOSUB  970 

FDR  I  =  0  TO  3:PZ(I)  =  10 

00|QZ(I)  -  10001  NEXT 

CD  =  .95: SH  »  5000 J SC  =  0 

I  BDSUB  9101  BOSUB  930 

XP  =  52:  yp  ="  59:  XDRAW  1 

AT  XP.YP 

RF  =  0:  FOR  M  -  0  TO  3 

IF  SH  =  0  THEN  330 

I  «  FRE  <0) :  GDSUB  400:  0 

N  I  Q08UB  430,440,450,460 

,470,560 

IF   PZ (M)    =    1000   THEN   GOSU 

B   5701    GOTO    310 

IF    PZ(M)    <    0   THEN   RF    =    1: 

SOTO   300 
BDSUB   610 

IF    PZ(M)     >    15   THEN  300 
IF   RND    (1)    <    CO    *    .8   THEN 
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The  Apple  version  of  "The  Last  Warrior" 
animates  the  alien  ships  using  custom 
characters  designed  with  the  previously 
published  "Apple  SuperFoni"  utility. 


»1  270 


IE  2B0 


EB  290 
f5  300 

n  310 


99  320 
i4  330 


4i  340 

5A  350 

9D  3^0 

9A  370 

as  380 

25  390 

SE  400 

64  410 


18 

420 

6E 

430 

49 

440 

74 

450 

D4 

460 

CA 

470 

Et  4B0 


57  490 


le 

500 

u 

510 

61 

520 

4D 

530 

IS 

540 

91 

550 

XDRAW  1  AT  XP,YP:XT  =  INT 

(PX(M) )  «  7  -  7:YT  =  INT 

(PY(M)  )  »  8  -  4 
HCDLOR=  5:  GOSUB  370:  HCO 
LOR"  0!  GOSUB  370!  GOSUB 
650!  XDRAW  1  AT  XP, YP 
SH  =  SH  -  100:  GOSUB  930 
CD  =  CO  «  .9999:  NEXT 
IF  RF  <  >  0  THEN  XDRAW  1 
AT  XP.YP:  GOSUB  t50t  XDRA 
W  1  AT  XP.YP 
GOTO  190 

XDRAW  1  AT  XP,YP:  VTAB  21 
!  HTAB  2:  PRINT  "ANOTHER 
GAME?  (Y  OR  N)" 
GET  A*:  IF  A*  =  "N"  DR  A* 

=  "n"  THEN  TEXT  :  END 
IF  A*  =  "Y"  OR  A*  =  "y"  T 
HEN  150 
GOTO  340 
HPLDT  XT.YT  TD  0,0!  HPLOT 

XT,YT  TO  0, 159 
HPLOT  XT.YT  TD  279,0:  HPL 
OT  XT.YT  TD  279, 159 
RETURN 

I  =  0:ft  =  PEEK  (49152) 
IF  A  >  127  THEN  POKE  4916 
B,0iA«  =  CHR»  <A  -  12B)! 
FOR  I  =  1  TO  6=  IF  A«  <  > 

MID*  {"J ILK  P",I,n  THEN 

NEXT 
RETURN 
BOSUB  B90:XP  =  XP  -  (XP  > 

A)  «  7:  SOTO  900 
BOSUB  890! YP  =  YP  -  (YP  > 

7)  »  8!  GOTO  900 
GOSUB  890: XP  =  XP  +  (XP  < 

273)  «  7:  GOTO  900 
GOSUB  890: YP  =  YP  +  (YP  < 

152)  *  B:  GOTO  900 
HCOUOR=  7:  XDRAW  1  AT  XP, 
YPs  HPLDT  0,159  TD  XP,YP! 

HPLOT  279,159  TD  XP, YP 
HCOLOR=  0:  HPLOT  0,159  TO 

XP.YP:  HPLOT  279,159  TO 
XP,  YP 

XC  =  INT  (XP  /  7)  +  1:YC 
»  INT  (YP  /  a)  +  Is  FDR  J 

"  0  TO  3:  IF  PZ(J)  =  100 

0  THEN  540 

IF  YC  <  >  INT  (PY(J>>  THE 

N  540 

IF  XC  <  INT  (PX(J) )  -  (PZ 

tJ)  <  =  15)  -  (PZ(J>  <  = 

30)  THEN  540 

IF  XC  >  INT  (PX(J) )  +  (PZ 

(J)  <  ■=  15)  THEN  540 

PZ(J)  =  -  PZ(J):  GDSUB  65 

01 SC  =  SC  +  100:  BOSUB  91 

01  GOTO  550 
NEXT 

XDRAW  1  AT  XP.YP: SH  =  SH 
-  201  GDSUB  930:  RETURN 


i7  560 
4ft  570 
a   580 


FT  590 


U  600 

BS  610 


SD  620 

77  630 
If  640 

a  650 

4A  660 

li   670 

GF  680 

5A  690 
EB  700 
IB  710 

i7  720 
3D  730 

Bi  740 

EC  750 

FE  760 

!D  770 
IF  780 
29  790 
19  800 

FA  810 

Ai  820 

42  830 

93  840 

21  850 

FS  B60 

3B  870 

!S  880 


IB  890 
74  900 

iS  910 


AC  920 

7E  930 
53  940 


GET  A«:  RETURN 

IF  RND  (1)  <  CO  THEN  600 

PX(M)  =  RND  (1)  »  35  +  3: 

PY(H)  -=  RND  (U  *  20  -t-  li 

PZtM)  =  45 

R  =  RND  (1)  -  .5!VX(M)  = 

(  ABS  (R)  -  .25)lVY<M)  - 

SQR  (.0623  -  VX(M)  *  VX (M 

) )  «  SGN  (R) iRF  °  1 

RETURN 

PX(M)  =  PX(M)  +  VX(M)  t  ( 

PX(M)  >  4  AND  PX(M)  <  37) 

I  IF  INT  <QXtM) )  <  >  INT 

(PX (M) )  THEN  RF  =  1 

PY(M)  =  PYth)  +  VY(M)  t  ( 

PY(M)  >  2  AND  PY(M)  <  20) 

I  IF  INT  <QY(I1)  )  <  >  INT 

(PY(M))  THEN  RF  =  1 

PZ(I1)  =  PZtM)  -  2  «  tPZ(M 

)  >  2):  IF  PZ(M)  =  30  OR 

PZ(M)  -  15  THEN  RF  ■=  1 

RETURN 

FOR  I  =  0  TD  3:  IF  QZ(I> 

-  1000  THEN  730 

NF  =  QZ(I):QZ(I)  =  ABS  (0 

Z(I)) 

IF  OZd)  <  =  15  THEN  BQSU 

B  8001  GOTO  700 

IF  OZd)  <  =  30  THEN  GDSU 

B  8101  GOTO  700 

GOSUB  820 

IF  NF  >  =  0  THEN  730 

IF  I  <  3  THEN  BOSUB  870! 1 

=■1-1 
QZ(3)  ==  1000 

NEXT  s  FOR  I  =  3  TO  0  STE 
P  -  li  IF  PZ(I)  -  1000  TH 
EN  780 

QX(I3  =  PX(I)!QY(I)  =  PY( 
DlQZd)  -  PZ(I> 
IF  ABS  (PZ(I) )  <  =  15  THE 
N  GOSUB  B30t  GOTO  7B0 
IF  ABS  (PZ(I) )  <  -  30  THE 
N  BOSUB  8401  BOTQ  780 
GOSUB  850 
NEXT 
RETURN 
HTAB  QX(I) 
):  PRINT  " 
HTAB  GX(I) 
)j  PRINT  " 
HTAB  OXd) 
PINT  "  "s 


VT 
4-  6 


9)  *    INT 

<PX(I)  / 


-  2:  VTAB  QY(I 
";  RETURN 

-  1 :  VTAB  DY ( I 
■':  RETURN 

:  VTAB  QY ( I ) :  P 
RETURN 

GOSUB  860:  HTAB  PX ( I)  -  2 
:  VTAB  PY(I):  PRINT  P*(PH 
)i  RETURN 

GOSUB  860:  HTAB  PX ( I )  -  1 
!  VTAB  PY(I):  PRINT  P*(PH 

+3)!  RETURN 
GDSUB  860:  HTAB  PX(1): 
AB  PYd):  PRINT  P«(PH  ■ 
)l  RETURN 
PH  =  (PZ (I)  >  =  i 
(PXd)  -  2  »  INT 

2)  +  1)1  RETURN 
FOR  K  =  I  TO  2:PX(K)  =  PX 
(K  +  1) iPY(K)  =  PY(K  +  1) 
:PZ(K)  =  PZ(K  +  1) 
VX(K}  =  VX(K  +  1) : VY(K)  = 

VY(K  +  1)!QX(K)  =  QX(K  + 

l)iDY(K)  =  QY(K  +  l)sDZ( 
K)  =  QZ(K  +  1) i  NEXT  : PZ ( 
3)  =  1000:  RETURN 
OX  =  XP:OY  =  YP:  RETURN 
XDRAW  1  AT  OX,aY:  XDRAW  1 

AT  XP.YP:  RETURN 
N*  =  STR*  (SC) :  VTAB  22: 
HTAB  lis  BOSUB  950: R  =  IN 
T  (SC  /  2000):  IF  R  >  4  T 
HEN  R  =  4 
VTAB  24:  HTAB  16: 
B68:  PRINT  R«(R) ; 
IF  SH  <  0  THEN  SH  =  0 
N*  =  STR*  (SH) :  VTAB  22: 
HTAB  31:  GOTO  950 


CALL  - 
i  RETURN 


3E  950  IF  LEN  (N*)  <  5  THEN  PRIN 

T  LEFT*  ("0000", 5  -  LEN  ( 

N«)}; 
4S  960  PRINT  N»;  s  RETURN 
17  970  HOME  :  HGR  :  INVERSE  :  VT 

AB  22:  HTAB  2:  PRINT  "  SC 

ORE  "!S  HTAB  22:  PRINT  "S 

HI ELDS"; 
51  980  VTAB  24:  HTAB  10:  PRINT  " 

RANK" I 
fl  990  NORMAL  :  RETURN 
S3  1000  POKE  232,100:  POKE  233,3 
21  1010  POKE  868,1:  POKE  870,4: 

POKE  871,0 
4B  1020  FOR  I  =  0  TO  4:  READ  A: 
+  I,A(  NEXT 
7: 


POKE  S72 
flF  1030  HCDLDR= 
o  4 

42  1040  FOR  I  = 

I):  NEXT 
3C  1050  FDR  I  = 

EAD  As  POKE  I, A 
54  1060  FOR  I  =  J3B 
175:  READ  A 

NEXT 

Sb  1070  IF  PEEK  (191  t  256)  =  76 
THEN  PRINT  D»; "PR#A«300 

"!  GOTO  1090 

POKE  55,3:  CA 


74 


9D 


ROT=  0:  SCALE 

0  TD  4:  READ  R* ( 

768  TO  I  +87:  R 
NEXT 
«  256  TO  I  + 
I  POKE  I, A: 


35  1080  POKE  54,0: 

LL  1002 
14  1090  POKE  6,0:  POKE  7,138:  RE 

TURN 
22  1100  DATA  176,12,31,5,0 
te  1110  DATA  CAPTAIN,  MAJOR,  COLON 

EL, GENERAL, WARRIOR 
D4  1120  DATA  216,120,133,69,134, 

70 
2E  1130  DATA  132,71,166,7,10,10 
44  1140  DATA  176,4,16,62,48,4 
18  1150  DATA  16,1,232,232,10,134 
tf  1160  DATA  27,24,101,6,133,26 
S3  1170  DATA  144,2,230,27,165,40 
95  1180  DATA  133,8,165,41,41,3 
Bl  1190  DATA  5,230,133,9,162,8 
IB  1200  DATA  160,0,177,26,36,50 
i!  1210  DATA  43,2,73,127,164,36 
47  1220  DATA  145,8,230,26,208,2 
9F  1230  DATA  230,27,165,9,24,105 
•F  1240  DATA  4,133,9,202,208,226 
B7  1250  DATA  165,69,166,70,164,7 

1 
72  1260  DATA  88,76,240,253 
iS  1270  DATA  0,0,0,0,0,0,0,0 
EB 
50 

19 
B7 
B4 
S9 


12B0  DATA  0,0,0,0,0,40,42,2 

1290  DATA  64,64,96,16,21,117, 

112,0 

1300  DATA  0,0,1,2,42,43,3,0 

1310  DATA  0,0,0,0,0,5,21,16 

1320  DATA  0,0,0,0,64,104,66,0 

1330  DATA  0,0,0,1,3,23,67,0 


41  1340  DATA  0,0,0,0,8,42,0,0 


1350    DATA   0,0,0,0,64,84,21,1 
2S    1360    DATA   32,32,112,8,10,122, 

120,0 
CJ    1370    DATA   0,0,0,1,21,85,65,0 

44  1380    DATA   0,0,0,0,0,2,10,9 

12   1390    DATA   0,0,0,64,96,116,97, 

0 
E7   1400    DATA   0,0,0,0,1,11,33,0 
22    1410    DATA   0,0,0,0,4,21,0,0 

45  1420    DATA   24,48,24,64,118,3,5 
6,0 

1430    DATA   56,99,48,55,88,111, 

102.0 
S4    1440    DATA    6,12,63,27,113,31,1 

12,0 
75   1450    DATA    3,6,48,108,12,51,0, 

0 
n    1460   DATA    0,56,99,48,55,88,0, 

0 
7F    1470    DATA    0,6,12,63,27,113,0, 

0 
5A   1480   DATA   0,0,76,118,54,0,0,0 

c 
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Reviews 


Rescue  On  Fracfalus! 
And  BaHblQzer 


Tom  R.  Halfhill,  Editor 


Requirements:  Atari  400/800,  XL,  or  XE 
computer  with  at  least  48K  RAM,  a  disk 
drive,  and  a  joystick  (two  joysticks  are 
recommended  for  Ballblazer).  Versions  for 
the  Commodore  64  and  Apple  U-series 
computers  were  due  to  be  released  early 
this  summer  (except  for  the  64  version  of 
Ballblazer,  which  is  still  under 
development). 

Delayed  for  a  frustrating  year  by  the 
turmoil  of  the  home  computer  wars. 
Rescue  on  Fractalus!  and  Ballblazer  have 
finally  hit  the  market  for  Atari  comput- 
ers and  are  pending  for  the  Commo- 
dore 64  and  Apple  as  well.  It's  about 
time,  too,  because  these  action  games 
have  been  anxiously  awaited  since  their 
unveiling  in  mid-1984.  Designed  by 
Lucasfilm — the  production  company 
which  brought  us  the  Star  Wars  tril- 
ogy— both  games  were  supposed  to  be 
marketed  in  cooperation  with  Atari. 
Unfortunately,  Atari  fell  on  hard  times 
and  the  Lucasfilm  games  fell  into  limbo. 
For  a  while,  enthusiasts  wondered 
if  the  games  would  ever  see  the  glow  of 
home  video  screens.  Tantalizing  pre- 
production  copies  of  Ballblazer  were 
known  to  be  circulating  in  the  pirate 
underground.  Finally,  Epyx,  Inc. 
clinched  a  deal  with  Lucasfilm  to  mar- 
ket the  programs.  Now  everyone  can 
decide:  Were  they  worth  the  wast? 

A  Mission  Of  Mercy 

Rescue  on  Fractalus!  integrates  the  best 
features  of  Brederbund's  Choplifter, 
Atari's  Star  Raiders,  and  Microprose's 
Solo  Flight.  Similar  to  Choplifter,  your 
mission  is  to  locate  and  rescue  fellow 
pilots  stranded  in  enemy  territory — 
while  fighting  off  hostile  aircraft  and 
ground  targets.  As  in  Star  Raiders,  you 
fly  a  spaceship  from  a  first-person  per- 
spective— the  video  screen  is  a  wind- 
shield onto  the  world  beyond.  And  like 
Solo  Flight,  success  depends  on  your 
ability  to  skillfully  maneuver  over  an 
ever-changing  landscape — while  keep- 
ing an  eye  on  your  flight  instruments  at 
the  bottom  of  the  screen. 


The  scenario  is  that  a  number  of 
space  pilots  have  been  shot  down  by 
alien  Jaggies  on  the  planet  Fractalus. 
(The  planetary  landscape  is  generated 
by  fractal  mathematics — get  it?)  You're 
an  old-fashioned  air  pilot  who  has  been 
called  back  into  the  Ethercorps  to  res- 
cue the  downed  space  pilots.  Launched 


Rescue  on  Fractalus!;  As  you  look  out  oiito 
the  jagged  mowitains  of  Fractalus,  a  downed 
space  pilot  runs  for  the  safety  of  your  airlock. 


Ballblazer;  With  only  a  half-second  left  to 
play  and  the  score  4-3,  player  two  (bottom 
window)  tries  to  shove  the  Plasmorb  past 
player  otie  (lop  window)  and  into  the  goal. 

from  an  orbiting  mother  ship,  you  have 
to  save  a  certain  quota  of  pilots  during 
each  mission  to  advance  to  the  next 
level.  The  task  involves  locating  the 
pilots  one  by  one,  landing  within  walk- 
ing distance,  waiting  for  the  pilot  to 
enter  your  airlock,  and  then  taking  off 
again  to  resume  the  search.  When  your 
quota  is  filled,  you  return  the  pilots  to 
the  mother  ship.  Meanwhile,  you  have 


to  duel  with  Jaggi  gun  emplacements 
dug  into  the  mountainsides  and  fight 
off  kamikaze  attacks  by  Jaggi  saucers. 

Your  craft,  a  modified  Valkyrie- 
class  fighter,  is  equipped  with  defense 
shields.  Antimatter  Bubble  Torpedos,  a 
targeting  scope,  a  long-range  scanner 
that  picks  up  the  presence  of  nearby 
space  pilots,  and  a  detector  that  warns 
when  a  Jaggi  gun  has  locked  onto  your 
ship.  Flight  instruments  include  an  arti- 
ficial horizon,  an  energy-level  meter, 
two  altimeters,  a  compass,  a  speed  indi- 
cator, a  device  that  shows  the  clearance 
between  your  wingtips  and  the  canyon 
walls,  and  digital  readouts  that  tell  how 
many  Jaggies  you've  destroyed,  how 
many  pilots  you  have  to  rescue,  and 
your  distance  from  the  pilot  on  the 
long-range  scanner,  All  these  dials  and 
gauges  are  especially  important  on  the 
highest  levels,  because  you  have  to  fly 
at  night  on  instruments  only. 

A  team  of  eight  people  created  this 
game,  and  the  attention  to  detail  shows. 
In  fact,  the  flight  simulation  could  be  a 
game  in  itself.  You  can  climb,  dive,  and 
bank  by  steering  the  sensitive  joystick, 
and  keyboard  controls  let  you  speed  up, 
slow  down,  land,  switch  your  shields 
on  and  off,  and  open  the  airlock  doors, 
Sound  effects  are  rich:  the  whine  of 
your  engines,  the  explosions  of  torpe- 
dos and  Jaggi  gunshots,  the  anxious 
knock  of  pilots  pounding  on  your  air- 
lock door  to  be  rescued,  and  the  hiss  of 
the  door  as  it  opens  and  closes.  Even 
the  documentation  is  entertaining  and 
professionally  done. 

Rescue  on  Fractalus!,  like  Star  Raid- 
ers, calls  for  strategic  thinking  and  con- 
tains some  surprises  and  secrets  for  you 
to  discover  before  you  can  move  to  the 
highest  levels.  It's  definitely  not  a  fast- 
paced  twitch  game.  Indeed,  at  times  it 
moves  rather  slowly  as  you  search  for 
the  stranded  pilots.  But  overall,  it's  an 
exceptional  effort 

Spiit-Screen  Soccer 

Lucasfilm's  other  release,  Ballblazer,  is 
equally  impressive.  The  split-screen, 
high-speed  graphics  of  this  frenetic 
game  must  be  seen  to  be  believed.  Like 
Rescue  on  Fractalus!,  it's  a  first-person 
perspective  game  that  shows  you  the 
view  from  the  driver's  seat.  But  Ban- 
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blazer  goes  a  step  further  and  actually 
splits  the  screen  into  hvo  views — one 
for  each  player.  Two  people  can  com- 
pete using  two  joysticks,  or  one  person 
can  play  the  computer. 

Essentially,  Ballblazer  is  space-age 
soccer  played  on  a  checkered  field  that 
measures  21  squares  wide  by  55  squares 
long  (each  square  represents  5X5 
meters).  The  Grid,  as  it's  known,  has  a 
pair  of  goalposts  at  each  end  and  is 
surrounded  by  force  fields  to  keep  play- 
ers from  straying  out  of  bounds.  As  in 
soccer,  the  object  is  to  score  more  goals 
than  your  opponent. 


Unlike  old-fashioned  soccer,  how- 
ever, this  game  isn't  played  by  teams  of 
flesh-and-blood  athletes  trying  to  kick 
around  a  rubber  ball.  Instead,  there  are 
only  two  players,  and  each  one  drives  a 
fast-moving  hovercraft  called  a  Roto- 
foil.  The  "ball"  is  a  Plasmorb,  a  glowing 
object  that  floats  two  meters  above  the 
playing  field.  When  you  push  the  joy- 
stick forward  to  cruise  over  the  Grid, 
your  Rotofoil  automatically  points  itself 
toward  the  Plasmorb.  When  you  make 
contact,  a  force  field  grabs  the  Plasmorb 
and  locks  it  in  front  of  your  Rotofoil. 
Then  the  Rotofoil  reorients  itself  to- 


Here  are  85  reasons 
to  buy  at  Elek-Tek, 
not  to  mention  the 
fastest  delivery 
anywKere. 


PRINTER  ACCESSORIES 

1.  FR  192 

E  [jso-i  80  cd  I'bbon         i  3.50 

2.  FR  193 

EdsO"^  132 cof  ftdbon  5.00 

3.  FR153A 

OKI  &  Gemin,  ft,tibon  2.50 

<.   FR197 

^  blinn  +0'  In^agPAf  EC  5.50 

5.  FF  7353  (nwUI) 

80  COJ   pr  nte'  sl.ini]  15.00 

6.  FF7354|meUI) 

132  col   pc^nler  5tand  18.00 

7.  I}0P-16K  Buffer 

Pa'PatE»o  10  64K  70.00 


Save  30%  to  43% 

off  Manufacturer  Suggested  Ret  piices  on 

EPSON  •  Okidata  •  Star  •  NEC 
•  TOSHIBA  •  COMREX  •  TTX 


EPSON  ^ 

LX80 

Homewriter  (Inc  In!) 

Fxes 

FX  185 

LQ  1500  paialiei 

DX20  Daisy  Wneel  20CPS 

Comrex  II  Comnter 


S  230 

2S0 
3S0 

490 
CALL 
CALL 

269 


15.  SG  10 

16.  SD  1015 

17.  SR  10.15 

OKIDrtTA 

18.  Ok.  182 

19.  Ok  19;  '93 

20.  Ok   3.: 


235 
CALL 
CALL 


CALL 
CALL 
CALL 


OTHER  PRINTERS 

21.  OlympiaCampacl2  S  399 

22.  OlympaCompaclRO  CALL 

23.  Toshiba  P351  1190 

24.  Tosfi  ba  P1340  560 


PRODUCTS  FOR  IBM-PC 


25.  AmdekSlOA 

Ambef  Wonilor  $  150 

other  Amdek  Monitors  .  CALL 

16,  Zenith  Monitors  CALL 

27.    AST  Sl»  Psk  + 

MUl  fulCtiOf^  Board,  G'lK 

AST  Six  Pak  ♦  (lofldBd) 

Mull  lunclion  Board,  3a4K 
AST  Megaplut  II 
Mull  (■jnclion  Board  6JK 
Ouadram  Ouadboard 
Mull  lunclion  Board,  OK 
Quadram  Ouadboard 
Mulltfunclion  Board,  64K 


28. 


29. 


30. 


31. 


249 


309 


270 


195 


210 


32.  Generic  Multl 

MJIiti-nclion  Boaid.  64K        149 

33.  On:hid  Tech. 
PCTuibolBS  CALL 

34.  Paradise 

Modular  Graphics  Card        275 

35.  Hen»jleB 

Monochrome  Card  329 

36.  Hercules  Color 

COor  Graphic  Card  17D 

37.  Ncwatlon  49C5911 

Modern  v.rsoHware  CALL 

38.  Novation  4905921 

Iniernal  Modem  w/sottware  CAU. 


39.  Hayes  1200B 

Iniernal  modem  w/sofiware    379 

40.  Hayes  1200 

.    External  -Tioaem  399 

41.  Hayes  2400 

Ejrlernaf  modem  599 

42.  US  Robotics  Courier  2400 

EkI   2400B  Smart  Modem     4G0 

43.  US  Robotics  Telpae 
Telecomm  Software  74 

44.  TEACFD55B 

'/?  hi  DSDD  Dsk  Drive  95 

45.  Prah  Keyboaid 

13  prog  keys,  heavy  duty      175 


DISKETTES 


lI)#^ 


flva* 


3^      eo^^   ^H*^    Me>^ 


3V4"  SSDD 
DSOD 

SV."  SSDD 
DSDD 

SSDOgSTPI 

DSDD9ETPI 
5V4"  DSDDHO 

(ftrl»M«) 

8"  SSDD" 
8"  DSDD" 

TJjlfcnTWtlwl 


Call  lor  OuantJIy  pricing  for  10  boxes  or  morft 


3M  DATA  CARTRIDGES 


to.  OC1D0A %  14.00 

St.  DC30aA 1S.00 


62.  DC300XL S  21.00 

83.  DC300XL/P    22.00 


84.  DC600A.. $23.50 

85.  DC1000 15.00 


Can  lor  Quantlxy  pricing  tor  TO  cartridges  or  morB. 


CALL  TOLL  FREE  800-621-1M9  EXCEPT  niinois.  Alaska 


Iwlthtn]  mftd»f»{rfd>lh»7i.  Otiwpnblwnacoiivvdbyritfr.  wvruWy.  AU.  ELfK-TEK  UCHCHAMOrSE  IS  BRAND  NOV.  FJftSil  Qu&uTV  AMD  COMPLETE- Cwmmv  mo- 

|*ci  10  *«*nM>uty.  DUN*  «M.riia^4tV 


ELEK-TEK,inc. 


ward  your  goal,  and  away  you  go. 

If  you  shove  the  Plasmorb  between 
the  goalposts,  you  get  one  point.  By 
pressing  the  joystick  button,  you  can 
also  shoot  the  Plasmorb  forward,  re- 
coiling your  Rotofoil  backward.  By 
shooting  the  Plasmorb  through  the  goal 
at  close  or  intermediate  range,  you  can 
score  one  or  two  points.  You  can  even 
get  three  points  by  scoring  a  goal  with 
an  over-the-horizon  shot  (since  the 
Grid  is  slightly  curved,  the  goalposts 
are  invisible  at  long  range). 

Meanwhile,  of  course,  your  com- 
puter or  human  opponent  pursues  in 
another  Rotofoil,  trying  to  block  your 
shots  and  steal  the  Plasmorb.  Whoever 
scores  the  most  goals  before  the  clock 
expires — usually  three  minutes — is  the 
winner. 

Like  most  sports,  Ballblazer  ap- 
pears simple  but  actually  contains 
many  hidden  strategies  and  possibili- 
ties. Championship  play  requires  good 
defensive  as  well  as  offensive  tactics. 
You  can  develop  these  skills  by  playing 
practice  games  against  the  computer 
(with  adjustable  difficulty  levels)  and 
by  studying  the  amusing  manual,  Ball- 
blazer looks  like  a  three-point  goal  for 
Lucasfilm  and  Epyx. 

Rescue  on  Fractalus! 
Ballblazer 
Epyx,  Inc. 
1043  Kiel  Court 
Sunnyvale,  CA  940S9 
$40  each 


Below  The  Roof 

Nick  Piazza,  Jr. 

Requirements:  Commodore  64  with  a  disk 
drive;  Apple  U-series  computer  with  at 
least  48K  RAM  and  a  disk  drive;  IBM  PC 
with  at  least  64K  RAM,  a  disk  drive,  and 
color /graphics  adapter;  or  an  Enhanced 
Model  IBM  PCjr.  A  joystick  is  required  for 
the  64  version  and  recommended  for  the 
Apple  and  IBM  versions. 

It  didn't  take  long  for  Hollywood  to 
realize  that  great  books  could  often  be 
made  into  great  movies.  The  software 
industry  appears  to  have  made  the 
same  discovery,  and  Windham  Classics 
has  developed  a  superb  adaptation  of 
Zilpha  Keatley  Snyder's  Green  Sky  Tril- 
ogy. (In  fact,  Snyder  collaborated  with 
programmer  Dale  Disharoon  to  create 
Below  the  Root.) 

The  Green  Sky  Trilogy  is  set  in  a 
fantasy  world  of  trees  and  tunnels 
known  as  Green  Sky,  and  it's  up  to  a 
character  on  a  quest  to  save  this  world 
from  pending  destruction.  Below  the 
Root  casts  the  player  as  the  quester  in  an 
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enchanting  blend  of  an  action  and  ad- 
venture game.  It  has  been  designed  for 
players  aged  ten  to  adult,  but  my  seven- 
year-old  daughter  was  able  to  enjoy  the 
game  while  playing  with  a  grownup. 
It's  even  more  enjoyable  when  several 
people  join  together  to  guide  the  quest. 
Indeed,  one  of  the  game's  strong  points 
is  that  it  encourages  cooperation  rather 
than  isolated  play  or  deadly 
competition. 

Colorful  Graphics 

One  of  the  first  things  that  impresses 
you  about  Below  the  Root  is  the  quality 
of  the  screen  graphics — the  color  and 
detail  rival  that  of  any  arcade  game. 
There  are  more  than  100  different 
screens,  each  a  delight  to  the  eye. 

Unlike  text  adventures.  Below  the 
Root  doesn't  require  you  to  enter  your 
commands  by  typing  short  sentences 
such  as  "Look  North"  or  "Take  Ob- 
ject." Instead,  you  select  functions  from 
various  menus  of  choices  (with  the  joy- 
stick, if  you're  using  one).  This  makes 
the  game  more  suitable  for  younger 
chUc&en.  For  example,  the  main  menu 
lets  you  start  a  new  game,  save  a  cur- 
rent game  on  disk,  continue  a  previous- 
ly saved  game,  or  view  a  sample  game 
simply  by  indicating  your  choice.  The 
last  option,  by  the  way,  is  particularly 
recommended  for  first-time  players — 
it's  wise  to  take  a  few  minutes  to  orient 
yourself  before  plunging  headlong  into 
this  unknown  world. 

After  reading  the  well-written  in- 
structions and  viewing  the  sample 
game,  you're  ready  to  start.  First,  the 
program  asks  which  of  five  questers 
you  wish  to  adopt.  Each  comes  with 
varying  degrees  of  stamina  and  "spirit 
skill."  Questers  also  represent  the  two 
races  which  occupy  Green  Sky:  the 
tree-loving  Kindar  and  their  cousins, 
the  Erdling.  Each  race  has  its  own  attri- 
butes and  limitations.  All  the  questers, 
however,  can  grow  in  strength  and  spir- 
it as  they  progress  through  the  game. 

What  really  sets  this  game  apart  is 
that  questers  can  be  either  male  or  fe- 
male. My  daughter  thought  it  was  un- 
fair that  she  was  limited  to  choosing 
between  three  male  characters  and  only 
two  female  characters,  but  still,  at  a 
time  when  computers  are  becoming  in- 
creasingly important,  it's  gratifying  to 
find  a  game  that  goes  out  of  its  way  to 
encourage  young  girls  as  well  as  boys. 

The  level  of  each  quester's  spirit 
skill  is  an  important  factor  in  mastering 
the  environment  of  Green  Sky  and  suc- 
cessfully completing  the  quest.  Spirit 
skills  include  the  ability  to  read  the 
emotions  and  thoughts  of  others  {pens- 
ing),  to  heal  yourself  if  injured,  to  influ- 
ence tree  growth  (grunspreke),  or  to 


move  yourself  or  other  objects  with 
your  mind  (kiniport).  Each  requires 
higher  levels  of  spirit  skill,  and  it's  up  tc 
the  player  to  determine  how  to  raise 
this  level.  Those  new  to  Green  Sky 
should  select  questers  with  more  spirit 
skill,  while  those  who  have  played 
before  may  want  to  try  questers  with 
less  spirit  skill  for  a  more  challenging 
game. 

Once  you've  selected  your  quester, 
the  game  begins  in  the  quester's  home. 
At  this  point,  you  have  50  days  (in 
game  time)  to  complete  your  quest  and 
save  Green  Sky.  Initial  supplies  are 
available  in  the  quester's  home,  and 
players  decide  their  course  of  actiori  by 
making  selections  from  the  options 
menu.  Many  of  these  options  are  famil- 
iar to  those  who  have  played  text  ad- 
ventures. You  can  examine,  take,  buy, 
eat,  offer,  drop,  or  sell  various  objects. 
You  can  also  list  an  inventory  of  what 
you're  carrying  and  call  upon  your  spirit 
skills. 

Quester,  Heal  Thyself 

Questers  are  free  to  move  throughout 
Green  Sky  in  various  ways:  They  can 
walk,  run,  jump,  glide,  climb,  crawl,  or 
enter  and  exit  buildings.  Since  much  of 
the  action  occurs  in  the  treetops  of 
Green  Sky,  you  must  be  careful  not  to 
fall — unless  you  have  a  shuba  for  glid- 
ing, your  quester  will  suffer  a  bump  on 
the  head.  But  watching  the  comical  way 
in  which  questers  rub  their  heads  after  a 
fall  may  help  soothe  the  pain. 

When  you  first  encounter  other 
characters  in  the  game,  an  important 
spirit  skill  to  use  is  pensing,  This  allows 
you  to  determine  if  they're  friendly 
before  speaking  to  them.  This  is  vital, 
because  some  inhabitants  are  hostile. 
From  time  to  time,  it's  also  important  to 
check  your  status,  get  adequate  rest,  eat 
when  you're  hungry,  and  heal  yourself 
of  any  injuries,  If  your  situation  be- 
comes too  desperate,  you  may  have  to 
renew  yourself.  This  option  returns  you 
home,  but  costs  you  a  day  from  your 
quest. 

The  renew  option,  incidentally, 
spotlights  another  attractive  feature  of 
Below  the  Root:  Questers  are  never 
killed  or  destioyed  during  their  quest. 
While  the  world  may  be  lost,  violence 
rarely  befalls  the  quester.  This  may  be 
an  important  consideration  for  young 
players  who  would  become  upset  if  a 
character  they  created  was  destroyed 
during  a  game,  or  for  parents  who  are 
disturbed  by  violence  in  computer 
games. 

Below  the  Root 

Windham  Classics/Spinnaker  Software 
One  Kendall  Square 
Cambridge,  MA  02139 
$26.95 


Companion 

Roger  B.  Crampton 

Requirements:  TI-99/4A  with  32K  RAM 
expansioit  card  or  box,  Extended  BASIC,  a 
disk  drive,  and  a  printer. 


Until  I  saw  Companion,  I  considered 
replacing  my  T1-99/4A  with  a  much 
more  expensive  computer  for  my  seri- 
ous word  processing  needs.  I  had  tried 
several  other  word  processors  and 
found  them  either  too  slow,  too  cum- 
bersome, or  lacking  essential  features. 
But  Companion,  an  inexpensive  pro- 
gram written  er.tiiely  in  machine  lan- 
guage, solves  all  of  those  problems. 

Companion's  editing  faatLires  are 
superb — you  have  instantaneous  full- 
screen editing  capability.  And  the  edit- 
ing comes  naturally,  because  all  normal 
features  of  the  TI  keyboard  retain  their 
functions.  For  example,  pressing  Func- 
tion 2  (Insert)  works  the  same  way  with 
Companion  as  it  does  when  you're  en- 
tering a  program  in  console  or  Extended 
BASIC.  There  are  no  surprises  or  tricky 
key  sequences  with  Companion.  Every- 
thing is  logical  and  works  in  much  the 
same  manner  as  screen  editing  in 
BASIC.  A  delightful  exception  is  the 
up-  and  down-arrow  keys — they  really 
move  the  cursor  up  and  down,  the  way 
you  wish  they  did  in  BASIC. 

Of  course.  Companion  has  all  of  the 
usual  word  processing  features.  You 
can  center  headings,  set  tabs,  automati- 
cally indent  new  paragraphs,  search  for 
text  strings,  and  move  or  copy  blocks  of 
text.  And  you  don't  have  to  memorize  a 
complex  series  of  keystrokes  to  do  sim- 
ple things.  For  instance,  pressing 
CTRL-P  automatically  generates  a  line- 
feed, a  carriage  return,  and  indents  five 
spaces  for  the  next  paragraph. 

The  manual  is  well-written,  suc- 
cinct, and  most  important,  understand- 
able. At  142  pages,  it  may  seem 
intimidating  at  first,  but  there  is  a  good 
reason  for  its  length.  Companion  has  so 
many  features  that  it  takes  that  many 
pages  to  describe  them. 

Companion  works  flexibly  with  dif- 
ferent kinds  of  printers.  It  lets  you  send 
control  characters  so  you  can  switch  to 
compressed  or  expanded  fonts,  or  any 
other  fonts  allowed  by  your  printer.  A 
little  judicious  study  of  your  printer 
manual,  along  with  the  Companion 
manual,  should  enable  you  to  produce 
a  brief  list  of  control  characters  to  adjust 
nearly  any  printer  parameter. 

Companion 

Intelpro 

5825  Baillargeon  Street 

Brossard,  Quebec 

Canada  J42  ITl 

$79.95 
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Jr-Draw  For  PCjr 

Norm  Cohen 

Requirements:  Enhanced  Model  IBM 
PCjr.  Light  pen  optional. 

Jr-Drau>  is  an  interactive  program 
which  allows  a  PCjr  user  to  create,  save, 
modify,  and  print  various  types  of 
graphics. 

Using  the  keyboard  or  optional 
light  pen,  you  can  combine  a  virtually 
unlimited  number  of  predefined  and 
user-defined  symbols,  freehand  ob- 
jects, and  text  labels  into  a  drawing. 
You  can  direct  output  to  a  graphics 
printer,  and  an  optional  driver  is  avail- 
able for  the  HP  7470A  and  7475A  plot- 
ters, jr-Draw  seems  most  suited  for 
technical  drawings,  layouts,  or  business- 
type  graphics. 

Assembling  Symbols  into 

Drawings 

You  create  drawings  by  typing  two- 
keystroke  combinations  to  select  and 
modify  primitive  symbols,  from  which 
more  complex  shapes  are  assembled. 
For  example,  typing  ALT-S  followed  by 


An  office  layout  designed  on  a  PCjr  with  Jr- 
Draw.  This  sample  screen  is  included  with 
the  software. 


10  places  a  circle  (symbol  number  10)  in 
the  drawing  area  of  the  screen.  Once  it's 
there,  you  can  use  the  cursor  control 
keys  and  function  keys  to  move  and 
change  the  size  of  the  object.  You  can 
rotate  objects  in  increments  of  90  de- 
grees— except  for  circles  and  ellipses. 
Another  option  is  selective  erasure. 

Once  created,  adjacent  objects  can 
be  selected  together  as  if  they  were  a 
single  object,  and  all  these  manipula- 
tions can  be  performed  on  the  group  as 
a  whole. 

There  are  two  ways  to  draw  lines. 
The  most  flexible  method  is  the  free- 
hand mode.  You  enter  this  mode  by 
typing  ALT-X,  which  converts  the 
screen  into  something  like  an  Etch-a- 
Sketch  brand  toy.  As  you  move  a  cross- 


hair around  the  screen  with  the  cursor 
keys,  a  line  is  left  in  its  wake. 

I  found  myself  using  freehand 
mode  almost  exclusively.  The  second 
method  requires  you  to  press  FN-4  at 
the  beginning  and  end  of  each  line 
segment  to  be  plotted.  Presumably  this 
mode  was  intended  for  lines  consisting 
of  a  single  segment,  but  it's  just  as 
simple  to  use  freehand  mode  for  these 
as  well. 


This  invenlonf  record  chart  is  one  of  the  pre- 
defined templates  included  on  the  Jr-Draw 
disks. 


By  combining  these  lines  with  the 
primitive  symbols,  pictures  are  built 
piece  by  piece.  You  can  save  the  pic- 
tures on  disk  at  any  point. 

Transferring  To  Paper 

Ultimately,  though,  the  object  is  to  get 
these  graphics  onto  paper.  Jr-Draw  of- 
fers eight  different  formats  in  which  the 
drawing  can  be  produced  on  any  of  a 
dozen  graphics  printers.  Variations  in- 
clude the  orientation  of  the  drawing  on 
the  page  and  whether  the  drawing  is 
printed  in  condensed,  emphasized,  or 
full-width  typestyles. 

Since  a  drawing  can  consist  of  up 
to  99  pages  or  screenfuls  of  infor- 
mation, you  can  also  specify  a  range  of 
pages  to  be  printed  at  one  time. 

If  you  want  a  higher  resolution 
copy,  you  can  buy  an  optional  driver  for 
the  plotters  mentioned  above.  Using  a 
plotter  should  minimize  the  jagged  ap- 
pearance of  diagonal  lines  which  char- 
acterizes graphics  printed  in  screen 
resolution. 

Jr-Draw  comes  with  several  symbol 
templates.  They  contain  flow-charting 
symbols,  electrical  schematic  symbols, 
large  and  small  block  text,  and  a  few 
symbols  designated  "interior"  for  floor 
plans. 

But  the  key  to  Jr-Draw's  flexibility 
lies  in  the  ability  to  define  custom  sym- 
bol templates  for  specific  applications. 
For  instance,  a  template  of  architectural 
symbols  might  be  useful  for  creating  an 
elevation  drawing.  Or  a  band  director 


might  find  a  template  of  musical  instru- 
ments helpful  for  charting  seating 
arrangements. 

Custom  templates  are  created  in 
much  the  same  way  as  drawings — 
they're  composed  of  previously  defined 
symbols  and  freehand  lines.  Once  the 
new  combination  is  "compressed"  and 
placed  into  the  template,  it  can  be  used 
in  defining  yet  another  new  symbol. 
Like  drawings,  these  templates  may  be 
stored  on  disk. 

A  Little  Confusion 

jr-Draw  is  a  complex  piece  of  software; 
it's  not  something  which  can  be  used 
intuitively.  Fortunately,  an  extensive 
interactive  tutorial  spares  you  from 
having  to  read  the  entire  174-page  ref- 
erence manual  before  you  start.  The 
tutorial  covers  the  program's  basic 
operations. 

Unfortunately,  not  everything  in 
the  tutorial  works  correctly.  Further- 
more, the  manual  states  that  the  tutorial 
is  on  disk  2  (of  the  three  disks  provided 
with  the  package),  when  it's  actually  on 
disk  3.  But  overall,  the  tutorial  is  a 
useful  feature  and  can  be  covered  com- 
pletely in  a  little  over  two  hours. 

Once  beyond  the  tutorial,  you'll 
find  that  unless  you  use  Jr-Draw  regu- 
larly and  frequently,  the  quick  refer- 
ence card  will  be  a  necessity.  It  is 
expecting  a  lot  of  a  user,  for  example,  to 
remember  that  small  block  text  should 
be  spaced  six  units  apart  while  large 
text  is  spaced  32  units  apart.  If  any 
program  ever  begged  for  a  keyboard 
overlay,  Jr-Draw  is  it.  On  the  plus  side, 
Jr-Draw  wisely  displays  the  meanings  of 
the  ten  function  keys  along  the  bottom  of 
the  screen. 

Jr-Draw  never  crashed  during  test- 
ing, but  there  were  several  instances — 
although  minor  and  correctable — when 
results  did  not  match  what  the  manual 
indicates  should  happen.  For  example, 
changing  the  aspect  of  an  ellipse  so  that 
it  was  flattened  horizontally  resulted  in 
it  springing  to  a  vertical  orientation. 
And  the  TAB  and  ENTER  keys  did  not 
work  as  described  when  adding  text  to 
a  drawing. 

Inadvertent  keystrokes  can  also 
cause  problems.  Typing  the  BACK- 
SPACE key  caused  the  template  to  dis- 
appear, for  example.  It  took  several 
moments  scanning  through  the  manual 
to  learn  that  the  way  to  restore  it  was  to 
type  CTRL-H. 

Sometimes  the  corrective  action  it- 
self is  a  source  of  aggravation.  If  you  try 
to  fill  with  color  an  object  that  is  not 
completely  enclosed,  it  "springs  a  leak" 
and  the  entire  screen  is  filled.  The  only 
remedy  is  to  delete  the  object,  redraw 
the  screen,  and  recreate  the  object. 
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Would  A  Mac  Be  Better? 

User  feedback  is,  in  general,  good. 
Typically,  the  object  or  objects  selected 
for  manipulation  blink  on  and  off  to 
disdnguish  them  from  other  objects  in 
the  drawing.  As  these  objects  become 
numerous  or  complex,  however,  the 
blinking  slows  down.  Eventually,  you 
reach  the  point  where  there  is  a  signifi- 
cant lag  between  a  keystroke  and  a 
screen  update.  In  most  instances, 
though,  this  is  not  a  serious  problem. 

There  were  moments,  brief  but 
real,  when  I  wondered  if  a  Macintosh 
with  MacPaint  would  be  better  for  the 
job.  The  Macintosh  mouse  and  pull- 
down menus  rrtake  it  very  easy  to  ma- 
nipulate. Presumably,  Jr-Draw  would 
be  much  easier  to  use  with  the  optional 
light  pen  instead  of  the  keyboard,  but  I 
lacked  a  light  pen  for  testing. 

Only  one  other  annoyance  was  en- 
countered: ]r-Draw  requires  you  to  fre- 
quently interchange  the  program  and 
data  disks  when  moving  from  one 
menu  to  another.  Jr-Draiv  is  a  good 
candidate  for  conversion  to  cartridge, 


which  would  eliminate  this  drawback. 
The  disks  are  not  copy-protected, 
but  neither  the  manual  nor  the  tutorial 
emphasizes  the  importance  of  backing 
up  the  disks  before  proceeding  (this 
information  is  in  Appendix  B  of  the 
manual— read  it  first).  The  manual  rec- 
ommends everyday  use  of  the  original 
disk  and  setting  aside  the  copies  for 
backups,  just  the  opposite  of  what  most 
experts  advise.  Make  sure  your  backups 
really  work  before  following  this 
practice. 

Practical  Applications 

It  is  reasonable  to  use  a  computer  to 
create  drawings  only  when  the  com- 
puter offers  some  advantages  over  con- 
ventional methods.  It  may  be  that 
drawings  can  be  created  more  quickly 
on  a  computer,  or  that  once  created, 
they  are  more  easily  modified.  Or  per- 
haps the  quality  of  the  drawings  is  im- 
proved, or  the  drawings  can  be 
produced  more  cost-effectively. 

The  answers  to  these  issues  de- 
pend partially  on  the  specific  software. 


but  to  a  larger  degree  on  the  environ- 
ment in  which  the  software  will  be 
operated. 

A  site  with  no  flat- art  capability  yet 
a  need  for  casual  graphics  such  as  orga- 
nizational charts  may  find  Jr-Draw  a 
useful  tool.  A  one-page  chart  can  be 
created  in  less  than  half  an  hour,  and 
changes  or  updates  are  easily  made. 

But  it  should  be  understood  that  ]r- 
Draiv  produces  graphics  suitable  for  use 
in  reports  to  other  members  of  your 
department,  perhaps,  but  not  necessar- 
ily for  sale  to  clients  or  for  presentation 
to  a  board  of  directors. 

There  are  many  graphics  programs 
on  the  market  for  the  PC  and  PCjr.  One 
of  the  worthy  competitors  to  jr-IDraio  is 
IBM's  own  CoiorPaiiJt  program.  PCjr 
owners  should  consider  several  differ- 
ent systems  before  selecting  one  to 
meet  their  needs. 

Jr-Draw 

Micrografx 

1701  N.  Greenville  Avenue 

Suite  703 

Richardson,  TX  75081 

SI  95  © 
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Commodore  64 
Memory  Manager 


If  you  find  yourself  using  several 
BASIC  programs  repeatedly,  here's  a 
way  you  can  load  them  all  into  your 
computer  at  once,  and  run  them  inde- 
pendently. "Memory  Manager"  keeps 
track  of  up  to  eight  programs  in  your 
Commodore  64  and  lets  you  switch 
between  them  with  the  special  func- 
tion keys. 


The  Commodore  64  has  38K  of 
Random  Access  Memory  (RAM) 
available  for  BASIC  programs. 
However,  unless  you're  using  a 
very  large  program,  most  of  that 
memory  is  sitting  empty,  wasted. 

"Memory  Manager"  is  a  utility 
which  takes  advantage  of  the  left- 
over memory  by  using  it  to  store 
other  BASIC  programs.  It  also  uses 
8K  of  additional  RAM  which  is  hid- 
den beneath  the  Read  Only  Memory 
(ROM).  Normally,  this  ROM  pre- 
vents you  from  using  the  additional 
RAM,  but  Memory  Manager  collects 
every  available  byte  of  RAM  (49. 5K 
total)  and  partitions  it  into  eight  sec- 
tions. You  can  load,  list,  run,  and  save 
up  to  eight  BASIC  programs  in  your 
computer  with  Memory  Manager. 

To  use  Memory  Manager,  type 
in  and  run  the  accompanying  pro- 
gram. It  asks  you  for  the  maximum 
amount  of  memory  (in  kilobytes)  to 
be  reserved  for  BASIC.  The  default 
response  printed  on  the  screen  for 
you  is  9K;  simply  press  RETURN,  or 


Robert  Lee 


enter  another  value  if  you  like.  You 
can't  change  this  value  later  without 
restarting  the  computer,  so  your  re- 
sponse defines  the  maximum  size  of 
the  BASIC  program  you  can  run.  If 
you  aren't  sure  how  long  your  pro- 
grams are,  you  can  make  a  close 
estimate  if  you  have  a  disk  drive. 
Load  a  disk  directory  and  note  the 
number  of  blocks  the  program  con- 
sumes on  the  disk.  Since  each  block 
equals  256  bytes,  four  blocks  equal 
one  kilobyte.  Simply  divide  the 
number  of  blocks  by  four  to  estimate 
the  length.  (For  instance,  a  program 
that  is  25  blocks  long  on  the  directo- 
ry takes  about  6.25K  of  RAM.)  How- 
ever, keep  in  mind  that  some 
programs  require  additional  RAM 
when  they  run. 

After  you  enter  your  answer, 
the  cursor  reappears  and  Memory 
Manager  is  ready  to  run.  Activate  it 
by  typing  SYS  53128  and  pressing 
RETURN. 


Eight  Partitions 

Depending  on  the  amount  of  memo- 
ry space  available,  up  to  eight  pro- 
grams can  be  handled  by  Memory 
Manager.  The  partitions  are  ac- 
cessed by  pressing  one  of  the  four 
special  function  keys.  Press  fl  to 
access  partition  1,  f2  for  partition  2, 
and  so  on.  When  you  flip  to  a  differ- 
ent partition.  Memory  Manager  dis- 
plays the  partition  number  on  the 
screen. 


For  example,  try  typing  or  load- 
ing a  program  into  the  computer. 
This  is  partition  1.  Type  LIST  to 
confirm  that  it's  in  memory.  Now 
press  one  of  the  function  keys — say, 
f5.  When  you  type  LIST  again,  noth- 
ing's there.  To  fill  partition  5,  just 
type  or  load  another  program.  You 
can  switch  from  partition  to  parti- 
tion as  often  as  you  like.  (If  you 
press  f5  when  you're  already  in  par- 
tition 5,  nothing  happens.) 

Memory  Manager  uses  only  the 
space  required  to  store  a  program,  so 
none  is  wasted.  If  there  is  not 
enough  room  to  store  a  certain  pro- 
gram. Memory  Manager  delivers  an 
error  message. 

If  you  wish  to  deactivate  Mem- 
ory Manager  for  some  reason,  type 
SYS  53144  and  press  RETURN. 
Pressing  the  RUN/  STOP-RESTORE 
combination  also  disables  Memory 
Manager.  You  can  turn  it  on  again 
by  entering  SYS  53128.  All  the  pro- 
grams in  memory  will  remain  in- 
tact— although  they  may  be  damaged 
if  you  perform  other  tasks  while 
Memory  Manager  is  deactivated. 

Remember  that  Memory  Man- 
ager works  only  with  BASIC  pro- 
grams; machine  language  programs 
are  almost  sure  to  cause  memory 
conflicts.  (The  machine  language 
portion  of  Memory  Manager  is 
stored  above  address  52736,  $CEOO 
hex.  It  frees  up  RAM  from  $0800  to 
$CDFF  minus  the  memory  space  as- 
signed to  BASIC.)  Even  with  BASIC, 
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#  Commodore  64  Accessories 

Summer  Sixxlor  Sale 


Add  S3.00  for  shipping,  handling  ond  insuronce.  Illinois  residents 
pleose  add  6%  tox.  Add  S6.00  for  CANADA.  PUERTO  RICO,  HAWAII, 
ALASKA,  APO-FPO  orders.  Conodion  orders  must  be  in  U  S  dollars 
WE  DO  tslOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT  CANADA, 
Enclose  Cashiers  Check,  Money  Order  or  Personal  Check,  Allow  M 
doys  ior  delivery,  2  to  7  doys  for  phone  orders.  1  day  express  moil ! 

VISA  —  MASTER  CARD  —  C.O.D. 
No  C.O.D.  to  Canoda,  APO-FPO. 


List 
S34900 


00 


109' 


Sale  Positively  Ends  9-15-85 

Prices  will  go  back  to  regular  sale  prices 

C128  Commodore  Computer 

Expondable  1o  512K.  runs  C-64,  CPM,  and  7.0  Progranns. 
(Add  SIO  Shipping) 

ISVa"  Commodore  150-170  CPS  Printer  3395 

Near  Le!1er  Quality,  Multiple  Pin  Tractor  /  Friction  Feed. 
Best  Printer  Value  in  U.S.A.  (Add  S17.50  Shipping) 

Commodore-64  IEEE  Interface 

Allows  you  to  run  Pet  Peripherals  on  the  C-64.  including  the 
One  Megabyte  Disk  Drive  and  1 5 '  i  "  Printer 

Juki  Printer/Typewriter 

Letter  Quality,  daisy  whee'  use  as  typewriter  and/or  prinier 
(auto  correction)  (Add  SIO  Shipping) 

SCM  80  CPS  Printer 

Tractor  Friction  10"  Famous  Nome  Printer  does  Graphics 
w/lntertace,  (Add  SIO  Shipping) 

Cardco  G  Plus  Interface 

Converts  Commodore  to  Centronics  for  use  with  most  printers,  plus 
does  Commodore  graphics  on  graphic  printers 

Alphacom  40  Column  Printer 

Thermal  technology  -  does  graphics.  (Add  S7.50  Shipping) 
Alphacom  C-64  or  Atari  Interface  $8.95. 

190K  Slim-Line  Disk  Drive 

Cooler,  20%  faster,  quieter  than  1541  drive  (Add  SIO  Shipping) 

One  Megabyte  Disk  Drive  (lOOOK) 

Double  sided  drive  hooks  up  to  C-64  with  IEEE  interface,  perfect  as  a 
second  drive.  (Add  SIO  Shipping) 

13"  Premium  Quality  Color  Monitor 

Better  than  1702,  with  seporated  video  inputs.  (Add  SI  4.50  Shipping) 

Voice  Synthesizer 

Allows  you  to  talk  through  your  computer.  Optional  softwore  lets 
you  play  talking  adventure  gomes  (Zork,  etc.) 

80  Column  Board  -  4  Slot  Expander 

Allows  you  to  program  in  80  columns,  plus  gives  you  a  4  slot  switch 
selectable  expander 

Auto  Dial  Modem  with  Super  Smart  Software 

Upload.  Download,  Print,  Catalog,  This  Packoge  has  it  oil!  I  ! 
Best  Modem  Value  in  the  U.S,A, !  ! 

Musicalc  I  Software 

The  Best  Musical  Software  for  the  C-64.  allows  you  to  change  all 
parameters. 

Oil  Barrens  Software 

Better  than  Monopoly,  comes  with  game  board,  disks  and 
instruction  manual.  Strike  Oil  or  Live  in  the  Poor  Form 
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plus  Software  Coupon  Discounts 


Wc  Love  Our  Customers 

22292  N.  Pepper  Rd..  Barrington,  Illinois  60010 

312/382-5244  to  order 


keeping  the  programs  from  interfer- 
ing with  each  other  in  every  in- 
stance is  practically  impossible. 
BASIC  programs  with  machine  lan- 
guage subroutines,  custom  character 
sets,  or  POKEs  into  memory  loca- 
tions beyond  the  top  of  BASIC 
memory  can  mess  up  the  programs 
stored  in  other  partitions. 

Variables  set  to  certain  values 
by  a  program  in  one  partition  will 
retain  those  values  when  you  switch 
to  another  partition  (although 
they'll  be  reset  when  you  type 
RUN).  For  these  reasons,  we  don't 
recommend  using  Memory  Manag- 
er for  critical  applications  such  as 
software  development.  Instead,  it's 
more  suitable  for  keeping  frequently 
used  programs  in  memory  rather 
than  constantly  accessing  the  cas- 
sette or  disk  drive,  or  for  loading  up 
a  series  of  programs  for  a  young 
person  who  cannot  handle  tapes  or 
disks. 


Commodore  64  Memory 
Manager 

For  instajctions  on  entering  this  listing,  please 
refer  to  "CO.MPUTErs  Guide  to  Typing  In 
Programs"  published  bimonthly  in  compute!. 

10    PRINT"fCLR}{6    DOWN] 

(11    RIGHT  llMEHORY    MANAGER" 

: rem   62 
20   PRIST" (3    DOWN) {11    RIGHT) 

[3    SPACES) FOR   THE    " ! rem    109 
30    PRINT" (3    DOWN) {12    RIGHT)C0H 
MQDORE    64(2    SPACES)" 

:rem  210 
100  FORX=52736T053215  : rem  183 
110  READA:CK=CK+A:POKEX,A 

: rem  28 
120  HEXT  rren  210 

130  IF  CK068936  THEN  PRINT" 

(RVS){2  DOWN)  ERROR  IN  DAT 
A  STATEMENTS"! STOP  : rem  50 
140  INPUT" {5  DOWN) HOW  MANY  K  F 
OR  PROGRAM  (6  TO  24) 
{2  RIGHT)9{3  LEPT)";H 

! rem  141 

145  IFM<60RM>25THENPRINT"{CLR) 

NUMBER  SHOULD  BE  FROM  6  TO 

24":GOTO140       : rem  168 

150  POKE55,0:POKE56,H*4+8 

:rem  153 
160  FORX=53224T05  323l!POKEX,M* 
4+8  8POKEX+16 , M*4+8  sNEXT 

:rem  181 
170  FORX=0TO6:POKEX+53217,X*3+ 
l:POKEX+53233,X*3+4!NEXT 

:rem  237 

1B0  POKE53214,X*3+l:POKE53215, 

M*4+8  srem  167 

190  FORX=(M*4+8)*256+lTO(M*4+8 

)* 256+24 :POKEX,0:NEXT 

trein  136 
200    PRINT"(CLR) (5    DOWN) 

{7    RIGHT)SYS    53128    TO    ACTI 
VATE"  srem    12 

210    PRINT" (3    DOWN) {7    RIGHT)SYS 
53144    TO    DEACTIVATE" 

:reTO  22  3 


220  PRINT" (3  DOWN) {9  RIGHT) PRO 
GRAM  #1  IN  USE"    : rem  141 
230  PRINT" {4  DOWN) SYS  53128 

{3  UP)"  :rem  95 

52736  DATA  169,255,141,180,207 

,162  srem  154 

52742  DATA  19,189,181,207,32,2 

10  :rem  49 

52748  DATA  255,202,16,247,88,7 

6  : rem  17 

52754  DATA  49,234,162,255,165, 

157  rrem  113 

52760  DATA  240,247,165,203,201 

,64  srera  91 

52766  DATA  208,5,141,180,207,2 

40  :rem  45 

52772  DATA  236,172,180,207,192 

,64  :rem  106 

52778  DATA  208,229,201,3,208,2 

:reni  204 
52734  DATA  162,6,201,4,208,2 

:rem  98 
52790  DATA  162,0,201,5,208,2 

:rem  90 
52796  DATA  162,2,201,6,208,2 

srem  99 

52802  DATA  162,4,224,255,240,2 

01  :rem  33 

52808  DATA  173,141,2,240,1,232 

trem  190 
52814  DATA  236,221,207,240,190 
,120  :rem  134 

52320  DATA  160,3,132,88,160,0 

:rem  147 

32826  DATA  132,87,173,222,207, 

133  :rem  99 

52832  DATA  89,173,223,207,133, 

90  :rem  54 

52838  DATA  134,91,162,3,165,90 

:rem  211 

52844  DATA  201,206,240,144,177 

)87  :rera  101 

52850  DATA  145,89,230,87,208,2 

:rem  213 
52856  DATA  230,88,230,89,208,2 

srem  215 
5  2862  DATA  230,90,201,0,208,22 

8  :rem  244 
52868  DATA  202,208,227,165,1,4 

1  :rem  254 

52874  DATA  254,133,1,166,91,18 

9  srem  12 
52880  DATA  240,207,56,253,224, 

207  :rem  98 

52886  DATA  133  ,-87, 189  ,  248,  207, 

253  :rem  124 

52892  DATA  232,207,133,88,172, 

221  :rem  102 

52898  DATA  207,173,222,207,153 

,224  irem  154 

52904  DATA  207,173,223,207,153 

,232  :rem  142 

52910  DATA  207,165,89,153,240, 

207  :rem  101 

52916  DATA  165,90,153,248,207, 

160  srem  105 

52922  DATA  7,185,232,207,221,2 

48  :rem  50 

52928  DATA  207,144,44,208,8,18 

5  srem  10 

52934  DATA  224,207,221,240,207 

,144  srem  139 

52940  DATA  34,105,224,207,56,2 

29  :  rem  56 

52946  DATA  87,153,224,207,185, 

232  :rem  110 

52952  DATA  207,229,88,153,232, 

207  :rem  108 

52958  DATA  185,240,207,56,229, 

87  srem  71 

52964  DATA  153,240,207,185,248 

,207  :rem  157 


52970  DATA  229,88,153,248,207, 

136  :rem  116 

52976  DATA  16,201,189,224,207, 

133  :rem  103 

52982  DATA  94,189,232,207,133, 

95  :rein  68 

52988  DATA  169,0,133,87,169,8 

trem  180 
52994  DATA  133,88,189,240,207, 

133  irem  114 

53000  DATA  92,189,248,207,133, 

93  srem  53 
53006  DATA  160,0,177,94,145,87 

srem  208 
53012  DATA  230,87,208,2,230,88 

trem  198 
53018  DATA  230,94,208,2,230,95 

trem  200 

53024  DATA  165,95,197,93,203,2 

34  :rem  62 

53030  DATA  165,94,197,92,208,2 

28  : rem  60 

53036  DATA  189,224,207,133,87, 

189  :rera  114 

53042  DATA  232,207,133,88,177, 

94  trem  55 
53048  DATA  145,87,230,87,208,2 

trem  211 
53054  DATA  230,88,230,94,203,2 

trem  202 
53060  DATA  230,95,165,95,197,9 

0  trem  11 
53066  DATA  208,234,165,94,197, 

89  :rem  72 

53072  DATA  208,228,172,221,207 

» 185  srem  147 

53078  DATA  240,207,141,222,207 

.185  :rem  143 

53084  DATA  248,207,141,223,207 

-142  -rem  142 

53090  DATA  221,207,165,1,9,1 

trem  92 
53096  DATA  133,1,173,221,207,2 

4  srem  244 

53102  DATA  105,49,141,209,207, 

162  :rem  87 

53108  DATA  19,189,201,207,32,2 

10  srem  39 

53114  DATA  255,202,16,247,169, 

255  trem  100 

53120  DATA  141,180,207,88,76,4 

9  srem  3 

53126  DATA  234,0,120,169,20,14 

1  srem  235 
53132  DATA  20,3,169,206,141,21 

trem  186 
53138  DATA  3,88,96,0,0,0 

trem  156 
53144  DATA  120,169,49,141,20,3 

srem  194 
53150  DATA  169,234,141,21,3,88 

srem  201 
53156  DATA  96,0,0,0,0,255 

srem  197 
53162  DATA  0,255,0,255,0,255 

trem  91 
53168  DATA  0,255,0,255,64,141 

srem  149 
53174  DATA  89,82,79,77,69,77 

srem  144 
53180  DATA  32,72,71,85,79,78 

srem  121 
53186  DATA  69,32,84,79,78,141 

srem  178 
53192  DATA  147,141,69,83,85,32 

trem  216 
53198  DATA  78,73,32,49,35,32 

trem  120 
53204  DATA  77,65,82,71,79,32 

srem  121 

53210  DATA  80,141,147,0,21,204 

srem  180  O 
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A 


88K  Lowest  Price  In  The  USA!  i52k 

ATARI  Computer  System  Sale 

•   Students   *   Word  Processing   •    Home   •   Business 


$449 

LOOK  AT  ALL  YOU  GET  FOR  ONLY  *r  T^  ^ 

SYSTEM   PRICE 

Atari  800XL  88K  Computer 

Atari  1050  127K  Disk  Drive 

Atari  1027  Letter  Quality  20  CPS  Printer 

Atari  Writer  Word  Processer 

Atari  BASIC  Tutorial  Manual 

All  connectina  cables  S  TV.  interloce  included.       t^>T  A  I   C 
Monitors  sold  seporctly.  TOTALS 


INDIVIDUAL 

SAVE  $100 

LIST  PRICE 

SALE  PRICE 

All  5  ONLY 

$179.00 
299.00 

$109°" 
199°"' 

$44900 

299.00 

199'"' 

SYSTEM 

59.95 

39" 
12" 

SALE  PRICE 

16.95 

152K  SYSTEM 

$852.90 

$559.90 

»49Qoo 

^ther  Accessories  List 

12"  Hi  Resolution  Green  or  Amber  Screen  Monitor  S199.00 

13"  Hi  Resolution  Color  Monitor  $399.00 

*  ATARI]  30XE  152K  Computer  S249.00 


Sale  Add  S9. 95  for 

Connection  Cobles 

69.95  (Monitors  Only) 

169.95  [Ltd.  Qty' 

159.00  Add  SIO  for  UPS 


IS  DAY  FREt  TRIAL.  We  giv^e  /ou  15  doys  to  try  out  this  ATARI  COMPUTER  SYSTEM!  '  If  it  doesn  t  meet  your  expectations,  jusi  send  it  back  to  us  prepaid 
ond  we  will  refund  your  purchase  price!  !  90  DAT  IMMEDIATE  REPLACEMENT  WARRANTY,  if  any  of  the  ATARI  COMPUTER  SYSTEM  equipment  or 
programs  fail  due  to  faulty  workmonship  or  material  within  90  days  of  purchase  we  will  replace  iJ  IMMEDIATELY  with  no  service  chorge!  ! 


Best  Prices  •  Over  1000  Programs  and  500  Accessories  Available  *  Best  Service 
•  One  Day  Express  Mail  *  Programming  Knowledge  *  Technical  Support 


Add  $25.00  for  shipping  and  handling!! 

EiTclose  Cashiers  Check.  Money  Order  or  Personol  Check.  Allow  1  4 
days  for  delivery  2  to  7  doys  for  phone  orders.  1  day  express  marl  * 
We  occept  Viso  and  MasterCard.  We  ship  C  O.D,  10  continental 
U.S.  addresses  only.  Add  SI  0  more  if  C. O.D. 


COMPUTER  DIRECT 

We  Love  Our  Cufitomers 

22292  N.  Pepper  Rd.,  Barrington,  III.  60010 

312/382-5050  to  order 


COMPUTEI's  Guide 
To  Typing  in  Programs 


Before  typing  in  any  program,  you 
should  familiarize  yourself  with  your 
computer.  Learn  how  to  use  the  key- 
board  to  type  in  and  correct  BASIC 
programs.  Read  your  manuals  to  un- 
derstand how  to  save  and  load  BASIC 
programs  to  and  from  your  disk  drive  or 
cassette  unit.  Computers  are  precise — 
take  special  care  to  type  the  program 
exactly  as  listed,  including  any  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  as  noted  below. 
To  help  you  with  this  task,  we  have 
implemented  a  special  listing  conven- 
tion as  well  as  a  program  to  help  check 
your  typing — the  "Automatic  Proof- 
reader." Please  read  the  following 
notes  before  typing  in  any  programs 
from  COMPUTE!.  They  can  save  you  a  lot 
of  time  and  trouble. 

Commodore,  Apple,  and  Atari 
programs  can  contain  some  hard-to- 
read  (and  hard-to-type)  special  charac- 
ters, so  we  have  developed  a  listing 
system  that  indicates  the  function  of 
these  control  characters.  (There  are  no 
special  control  characters  in  our  IBM  or 
TI-99/4A  listings.)  You  wiU  find  Com- 
modore and  Atari  special  characters 
within  curly  braces;  do  not  type  the  brae- 
es.  For  example,  {CLEAR}  or  {CLR} 
instructs  you  to  insert  the  symbol 
which  clears  the  screen  on  the  Atari  or 
Commodore  machines.  For  Commo- 
dore, Apple,  and  Atari,  a  symbol  by 
itself  within  curly  braces  is  usually  a 
control  key  or  graphics  key.  If  you  see 
{A},  hold  down  the  CTRL  key  and 
press  A.  This  will  produce  a  reverse 
video  character  on  the  Commodore  (in 
quote  mode),  a  graphics  character  on 
die  Atari,  and  an  invisible  control  char- 
acter on  the  Apple.  Commodore  com- 
puters also  have  a  special  control  key 
labeled  with  the  Commodore  logo. 
Graphics  characters  entered  with  the 
Commodore  logo  key  are  enclosed  in  a 
special  bracket  that  looks  like  this: 
[<A::^.  In  this  case,  you  would  hold 
down  the  Commodore  logo  key  as  you 
type  A.  Our  Commodore  listings  are  in 
uppercase,  so  shifted  symbols  are  un- 
derlined. A  graphics  heart  symbol 
(SHIFT'S)  would  be  listed  as  S.  One 
exception  is  {SHIFT-SPACE}.  When 
you  see  this,  hold  down  SHIFT  and 
press  the  space  bar.  If  a  number  pre- 
cedes a  symbol,  such  as  {5  RIGHT},  {6 


S},  or  [<8  Q>],  you  would  enter  five 

cursor  rights,  six  shifted  S's,  or  eight 
Commodore-Q's.  On  the  Atari,  inverse 
characters  (printed  in  white  on  black) 
should  be  entered  after  pressing  the 
inverse  video  key. 

Since  spacing  is  sometimes  impor- 
tant, any  more  than  two  spaces  will  be 


listed.  For  example,  {6  SPACES}  means 
to  press  the  space  bar  six  times.  Our 
listings  never  leave  a  space  at  the  end  of 
a  line,  instead  moving  it  to  the  next 
printed  line  as  {SPACE}.  For  your 
convenience,  we  have  prepared  this 
quick-reference  chart  for  the  Commo- 
dore and  Atari  special  characters: 


Atari  400/800/XL/XE 


Wtien  you  see      Type 

t CLEAR}  ESC 

fUP>  ESC 

{DOWN J  ESC 

tLEFT>  ESC 

CRIQHT>  ESC 

CBfiCK  SJ  ESC 

tDELETEJ  ESC 

{INSERT}  ESC 

CDEL  LINE>  ESC 

{INS  LIHE>  ESC 

{TflB>  ESC 

CCLR  TAB>  ESC 

{SET  TAB>  ESC 

{BELL>  ESC 

{ESCJ  ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  t 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

K 

«- 
-»■ 

a 
u 
□ 

E3 

B 
□ 


Clear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  st op 
Ring  buzzer 
ESCape  key 


Commodore  PET/CBM/VIC/64/1 28/1 6/ +4 

Press:  See: 


When  you 
Read: 


When  >bu 
Read; 


Press: 


(CLR) 

(HOME) 

(UP) 

{ DOWN ) 

jLEFT) 

{RIGHT} 

(RVS) 

{OFF) 

(BLK} 

{WHT} 

(RED) 

(CYN) 

(PUR) 

(GRN) 

(BLU} 

{YEL) 


CTRl 

4 

CTRL 

5 

CTRL 

6 

m 


{Fl  } 
{  F2  ! 
{  F3  ) 
{  H  } 
{H} 

(K) 
{F7} 
{  F8} 

* 


COMMODORE      I 

COMMODORE      2 

COMMODORE      3 

COMMODORE      4 

COMMODORE       5 

COMMODORE      6 

COMMODORE      7 

COMMODORE       S 

a 

SHlFr 

fl 

f3 

SHIFT 

{3 

fS 

SHIFT 

B 

f7 

SHfft 

t! 

■I 
□ 
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The  Automatic  Proofreader 

We  have  developed  a  series  of  simple, 
yet  effective  programs  that  can  help 
check  your  typing.  Type  in  the  appro- 
priate Proofreader  program  listed  be- 
low, then  save  it  for  future  use.  On  the 
VIC,  64,  or  Atari,  run  the  Proofreader  to 
activate  it,  then  enter  NEW  to  erase  the 
BASIC  loader  (the  Proofreader  remains 
active,  hidden  in  memory,  as  a  machine 
language  program).  Pressing  RUN/ 
STOP-RESTORE  or  SYSTEM  RESET 
deactivates  the  Proofreader.  You  can 
use  SYS  886  to  reactivate  the  VIC/64 
Proofreader,  or  PRINT  U5R(1536)  to 
reenable  the  Atari  Proofreader.  On  the 
Apple,  the  Proofreader  automatically 
erases  the  BASIC  portion  of  itself  after 
you  activate  it  by  typing  RUN,  leaving 
only  the  machine  language  portion  in 
memory.  It  works  with  either  DOS  3.3 
or  ProDOS.  Disable  the  Apple  Proof- 
reader by  pressing  CTRL-RESET  before 
running  another  BASIC  program.  The 
IBM  JProofreader  is  a  BASIC  program 
that  simulates  the  IBM  BASIC  line  edi- 
tor, letting  you  enter,  edit,  list,  save,  and 
load  programs  that  you  type.  Type 
RUN  to  activate. 

Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  decimal  number  (on 
the  Commodore),  a  hexadecimal  num- 
ber (on  the  Apple),  or  a  pair  of  letters 
(on  the  Atari  or  IBM)  appears.  The 
number  or  pair  of  letters  is  called  a 
checksum.  Try  making  a  change  in  the 
line,  and  notice  how  the  checksum 
changes. 

All  you  need  to  do  is  compare  the 
value  provided  by  the  Proofreader  with 
the  checksum  printed  in  the  program 
listing  in  the  magazine.  In  Commodore 
listings,  the  checksum  is  a  number  from 
0  to  255.  It  is  set  off  from  the  rest  of  the 
line  with  rem.  This  prevents  a  syntax 
error  if  the  checksum  is  typed  in,  but 
the  REM  statements  and  checksums 
need  not  be  typed  in.  It  is  just  there  for 
your  information. 

In  Atari,  Apple,  and  IBM  listings, 
the  checksum  is  given  to  the  left  of  each 
line  number.  Just  type  in  the  program 
one  line  at  a  time  (without  the  printed 
checksum)  and  compare  the  checksum 
generated  by  the  Proofreader  to  the 
checksum  in  the  listing.  If  they  match, 
go  on  to  the  next  line.  If  not,  check  your 
typing;  You've  made  a  mistake.  On  the 
Commodore,  Atari,  and  Apple  Proof- 
readers, spaces  are  not  counted  as  part 
of  the  checksum,  so  be  sure  you  type 
the  right  number  of  spaces  between 
quote  marks.  The  Commodore  and 
Atari  Proofreaders  do  not  check  to  see 
that  you've  typed  the  characters  in  the 
right  order,  so  if  characters  are  trans- 
posed, the  checksum  still  matches  the 
listing.  Because  of  the  checksum  meth- 


od used,  do  not  type  abbreviations, 
such  as  ?  for  PRINT.  The  IBM  Proof- 
reader is  the  pickiest  of  all;  it  will  detect 
errors  in  spacing  and  transposition.  Be 
sure  to  leave  Caps  Lock  on,  except 
when  typing  lowercase  characters. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC,  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
type  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  sure  you  mean  yes. 
Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram in  BASIC  as  usual  (this  replaces 
the  Proofreader  in  memory).  You  can 
now  run  the  program,  but  you  may 
want  to  resave  it  to  disk.  The  version  of 
your  program  that  you  resave  from 
BASIC  will  take  up  less  space  on  disk 
and  will  load  faster,  but  it  can  no  longer 
be  edited  with  the  Proofreader.  If  you 
want  to  convert  a  program  to  Proof- 
reader format,  save  it  to  disk  with  SAVE 
"filename" , A. 

Special  Proofreader  Notes 
For  Commodore  Cassette 
Users 

The  Proofreader  resides  in  a  section  of 
memory  called  the  cassette  buffer, 
which  is  used  during  tape  LOADs  and 
SAVEs.  Therefore,  be  sure  to  press 
RUN/STOP-RESTORE  to  get  the  Proof- 
reader out  of  the  way  before  saving  or 
loading  a  program.  If  you  want  to  use 
the  Proofreader  with  tape,  run  the 
Proofreader,  then  enter  these  two  lines 
exactly  as  shown,  pressing  RETURN 
after  each  one: 

A$  =  "PROOFRE  ADER.T":BS  =  "  {10 
SPACES}":FOR  X  =  l  TO  4:A$=A$ 
-fB$:NEXT 

FOR  X  =  886  TO  1018:AS=A$-I-CHR$ 
(PEEK(X)):NEXT:OPEN  1,1,1,A$: 
CLOSEl 

Then  insert  a  blank  tape  and  press  RE- 
CORD and  PLAY  to  save  a  special  ver- 
sion of  the  Proofreader.  Anytime  you 
need  to  reload  the  Proofreader  after  it 
has  been  erased — for  example,  after 
you  reload  a  paritally  completed  pro- 
gram— just  rewind  the  tape,  type 
OPENl:CLOSEl,   then   press   PLAY. 


You'll  see  the  message  FOUND 
PROOFREADER.T,  but  not  the  familiar 
LOADING  message.  Don't  worry;  the 
Proofreader  is  in  memory.  When 
READY  comes  back,  enter  SYS  886. 


Program  1:  ViC/64 
Proofreader 

By  Charles  Brannon,  Program  Editor 

10  PRINT" fCLR 3 PLEASE  WAIT...": 

FORI=886TO1018 : READAtCK=CK+ 

A:POKEI,A:NEXT 
20  IF  CK<> 17539  THEN  PRINT" 

[down] YOU  MADE  AN  ERROR": PR 

INT "IN  DATA  STATEMENTS .": EN 

D 
30  SYS886tPRINT"(CLR3 (2  DOWN}P 

aOOFREADER  ACTIVATED. " s NEW 
40  DATA  173,036,003,201,150,20 

9,001,096,141,151,003,173 
50  DATA  037,003,141,152,003,16 

9,150,141,036,003,169,003 
60  DATA  141,037,003,169,000,13 

3,254,096,032,087,241,133 
70  DATA  251,134,252,132,253,00 

8,201,013,240,017,201,032 
80  DATA  240,005,024,101,254,13 

3 . 254, 165 , 251 , 166 , 252, 164 
90  DATA  253,040,096,169,013,03 

2,210,255,165,214,141,251 
100  DATA  003,206,251,003,169,0 
00,133,216,169,019,032,210 
110  DATA  255,169,018,032,210,2 

55,169,58,032,210,255,166 

120  DATA  254,169,000,133,254,1 

72 , 151 , 003 , 192 , 087 , 208 , 006 

130  DATA  032,205,189,076,235,0 

03,032,205,221,169,032,032 

140  DATA  210,255,032,210,255,1 

73,251,003,133,214,076,173 

150  DATA  003 


Program  2:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 


100 
110 


120 


130 
140 


150 
160 

170 

160 

190 

200 

210 


BRAPHICB  0 

FOR  1-1536  TO  1700IRE 

AD  AiPOKE  I,ftiCK-CK+A 

iNEXT  I 

IF  CKO19072  THEN  7  " 

Error  in  DATA  St«t»mB 

nt«.   ChBck  Typing. "I 

END 

A-USR{1S36> 

7  1?  "Automatic  Proof 

rBad*r  Now  Activ«t»d. 


END 

DATA  104, 
,3,201 ,69 
DATA  200, 
08,243,96 
DATA  153, 
, 6, 153,26 
DATA  0, 18 
74,6,232, 
DATA  208, 
41,78,6, 1 
DATA  79,6 
a, 105, 1,1 


, 160, 0, 165,26 
',240,7 
,200, 192,34,2 
b,200, 169,74 
,26,3,200, 169 
!i,3,  162 
J9,0,22B, 157, 
, 224, 16 
,245, 169,93, 1 
169,6,  141 
6,24, 173,4,22 
141,95 
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220  DATA  6,173,5,228,105, 

0, 141, 9&, 6, 169 
230  DATA  0,133,203,96,247 

,238, 125,241 ,93,6 
240  DATA  244,241,115,241, 

124,241 , 76,20S,23B 
250  DATA  0,0,0,0,0,32,62, 

246,9,201 
260  DATA  155,240,13,201,3 

2,240,7,72,24, 101 
270  DATA  203,133,203,104, 

40,96,72, 152,72,  1  3B 
2G0  DATA  72, 160,0, 169, 12B 

, 145, ee, 200, 192,40 
290  DATA  208,249,165,203, 

74,74,74,74,24,105 
300  DATA  161,160,3,145,88 

, 165,203, 41, 15,24 
310  DATA  105,161,200,145, 

68,169,0, 133,203, 104 
320  DATA  170,104,168,104, 

40,96 


Program  3:  IBM  Proofreader 

By  Charles  Brannon,  Program  Editor 

10  'Automatic  Proo+reader  Ver 

Bion    2.00     (Lines    270,510,5 

15,517,620,630    changed    fro 

iti    VI. 0} 

100  DIM  L*(S00) ,LNUMC500) :CDL 

OR  0,7, 7: KEY  OFF}CLS:MAX= 

0!LNUM(0) =65536! 
U0  ON  ERROR  GOTO  120:  KEY  15, 

CHR*(4)+CHR«(70)sDN  KEY ( 1 

5)  GOSUB  640!KEY  (15)  ONj 

BDTO  130 
120  RESUME  130 

130  DEF  SEG=&H40:W=PEEK(!<H4A> 
140  ON  ERROR  BOTO  650: PRINT: P 

RINT"Praof reader  Ready. " 
150  LINE  INPUT  LS: Y=CSRLIN-IN 

T(LEN(L«)/W)-l!LOCATE  Y, 1 
160  DEF  SEG=0:POKE  1050, 30: PO 

KE  1052, 34: POKE  1054, 0!pO 

KE    105S,7<?:POKE    1056,  13:P 

OKE  1057, 28: LINE  INPUT  L« 

:DEF  SEE: IF  L*=""  THEN  15 

0 
170  IF  LEFT«(L*, 1)="  "  THEN  L 

«=MID*(L$,2)sG0T0  170 
180  IF  VAL(LEFT*(LS,2) )=0  AND 
MID»(L«,3, 1)="  "  THEN  L* 

=MID»(L«,4) 
190  LNUM= V AL ( L4 ) : TE  X  T«=H I DS ( L 

«, LEN (STR* (LNUM) ) +1 ) 
200  IF  ASC(L*)>57  THEN  260  'n 

D  line  number,  there-fore 

CDmmand 
210  IF  TEXT«=""  THEN  GOSUB  54 

0: IF  LNUM=LNUM(P)  THEN  GO 

SUB  S60:GaTO  150  ELSE  150 
220  CKSUM=0:FOR  I-l  TO  LEN(L« 

) !CKSUM= (CKSUM+fiSC (HID* (L 

t,I))»I)  AND  255s NEXT: LOG 

ATE  Y,l5PRINT  CHR«(65+CKS 

UM/lfc)+CHR*(65+(CKSUM   AND 
15>)+"     "+L* 
230    GOSUB    540:  IF    LNUM  (P)  =LNUin 
THEN    L»(P)=TE)(T*:GDTD    15 

0  'replace  line 
240  GOSUB  5B0:GDTD  150  'inser 

t  the  line 
260  TEXT*="":FOR  1=1  TO  LEN(L 

*):A=ASC(MID*(L»,I) ) :TEXT 

«=TEXT«+CHR*(A+32»tA>96  A 

ND  fl< 123))! NEXT 


270  DELIMITER=INSTR(TEXT*,"  " 
) : CDMMAND»=TEXT«! ARG»=" " : 
IF  DELIMITER  THEN  COMMAND 
S=LEFT* (TEXT*, DELIMITER-! 
) : ARG*=M!D* (TEXTS, DELIMIT 
ER+1)  ELSE  DELIMITER=INST 
R(TEXT«,CHR«(34) ) ! IF  DELI 
MITER  THEN  COMMANDS=LEFTS 
(TEXT*, DELIMITER-1 ) : ARB*= 
MID* (TEXT*, DELIMITER) 
280  IF  C0MMAND4<>"LIST"  THEN 

410 
290  OPEN  "scrn: "  FOR  OUTPUT  A 

S  #1 
300  IF  ARG*=""  THEN  FIRST=0:P 

=MAX-l!GOTO    340 
310    DELIMITER=INSTR<ARG»,"-") 
:  IF    DEHMITER=0    THEN    LNUM 
=VAL{ARG*)s GOSUB   540! FIRS 
T=P!GDTD    340 
320    FIRST=VAL(LEFT*(ARG*,DELI 
MITER)  ):LAST=VAL(mD*(ARG 
«,DELIMITER+1) ) 
330    LNUM=FIRST!GOSUB    540: FIRS 
T=P!LNUM=L AST: GOSUB    540:1 
F    P=0    THEN    P=MAX-1 
340    FOR    X=FIRST    TO    PsN*=MID*( 

STR«(LNUM(X) ) ,2)+"  " 
350  IF  CKFLAG=0  THEN  A*=""!eO 

TO  370 
360  CKSUM=0:  A*=N«-t-L«(X>:FDR  I 
=1  TO  LEN(A*) :CKSUM=(CKSU 
M+ASC (HID* (A* , 1 ) ) « I )  AND 
255: NEXT: A*=CHR* (feS+CKSUM 
/16)+CHR«(6S+(CKSUM  AND  1 
S))+"  " 
370  PRINT  #1,A«+N*+L*(X) 
3S0  IF  INKEY«<>""  THEN  X=P 
390  NEXT  ; CLOSE  «1:CKFLAG=0 
400  GOTO  130 

410  IF  CDMMAND*="LLIST"  THEN 
OPEN  "Iptl:"  FOR  OUTPUT  A 
S  #1:GDT0  300 
420  IF  CDMMAND*=" CHECK"  THEN 

CKFLAG=l!GDTO  290 
430  IF  COMMAND*<>"SAVE"  THEN 

450 
440  GOSUB  600: OPEN  ARG*  FOR  O 
UTPUT  AS  #lsARG*="":GOTO 
300 
450  IF  COMMflND«<>"LOAD"  THEN 

490 
460  GOSUB  600: OPEN  ARG*  FDR  I 

NPUT  AS  «1:MAX=0jP=0 
470  WHILE  NOT  EOF (1): LINE  INP 
UT  #l,L*!LNUM{P)=VAL(L«)s 
L« (P) =MID« (L*, LEN (STR* (VA 
L (L*) ) ) +1 > : P=P+1 : WEND 
480  MAX=P: CLOSE  #l:GOTa  130 
490  IF  COMMAND*="NEW"  THEN  IN 
PUT  "Erase  program  —  Are 
you  surB";L«:IF  LEFT*(L*, 
l)="y"  DR  LEFTtCL*, 1)="Y" 
THEN  MAX=0:GOTO  130: ELSE 
130 
500  IF  COMMAND»=" BASIC"  THEN 
COLOR  7, 0,0: ON  ERROR  GOTO 
0:CLS:END 
510  IF  COMMAND*<>"FILES"  THEN 

520 
515  IF  ARG»=""  THEN  ARG*="A:" 

ELSE  SEL=1: GOSUB  600 
517  FILES  ARG*: GOTO  130 
520  PR I NT "Syntax  error": SOTO 
130 


540  P=0: WHILE  LNUM>LNUM(P)  AN 

D  P<MAXiP=P+l!WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX: 

LNUM(X)=LNUM<X+1);L*(X)=L 

* { X+1 ) ! NEXT: RETURN 
580  MAX=MAX  +  1:F0R  X=MAX  TO  P4- 

1  STEP  -l!LNUM{X)=LNUM(X- 

l)iL«(X)=L*<X-l>»NEXT:L«( 

P) -TEXT*: LNUM (P ) =LNUM: RET 

URN 
600  IF  LEFT* ( ARG* , 1 )<  >CHR« ( 34 

)  THEN  520  ELSE  ARG*-=MID* 

(ARG«,2) 
610  IF  RIGHT* (ARG*, 1)=CHR« (34 

)  THEN  AR6«=-LEFT*<ARG«,LE 

N(ARG*>-1) 
620  IF  SEL=0  AND  INSTR(ARG*," 

.")-0  THEN  ARB«=ARB«+",BA 

S" 
630  SEL=0! RETURN 
640  CLOSE  »ltCKFLAG=0iPRINT"S 

topped."! RETURN  1 50 
650  PRINT  "Error  »"|ERRiRESUM 

E  150 


Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial 
Programmer 

10  C  =  0:  FOR  I  =  76S  TO  76B  + 

68:  READ  A;C  =  C  +  A:  POKE  I 

,A:  NEXT 
20  IF  C  <  >  725B  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  t  256>  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002-.  GOTO  50 
40  PRINT  CHR*  (4) ; "IN#A*300" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2!  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105, 0,72, 202, 20B 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169, 141,96 
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MLX 

Machine  Language 
Entry  Program  For 
Commodore  64 
and  Atari 

Charles  Brannon,  Program  Editor 


MLX  is  a  labor-saving  utility  thai  allows 
almost  fail-safe  entry  of  machine  lan- 
guage programs  published  in  compute!. 
You  need  to  know  nothing  about  machine 
language  to  use  MLX — it  was  designed  for 
everyone. 

MLX  is  a  new  way  to  enter  long  n:»aehine 
language  (ML)  programs  with  a  minimum  of 
fuss.  MLX  lets  you  enter  the  numbers  from  a 
special  list  that  looks  similar  to  BASIC 
DATA  statements.  It  checks  your  typing  on  a 
line-by-line  basis.  It  won't  let  you  enter  ille- 
gal characters  when  you  should  be  typing 
numbers.  It  won't  let  you  enter  numbers 
greater  than  255  (forbidden  in  ML).  It  won't 
let  you  enter  the  wrong  numbers  on  the 
wrong  line.  In  addition,  MLX  creates  a 
ready-to-use  tape  or  disk  file. 

Using  MLX 

Type  in  and  save  the  appropriate  version  of 
MLX  (you'll  want  to  use  it  in  the  future). 
When  you're  ready  to  type  in  an  ML  pro- 
gram, run  MLX.  Both  versions  of  MLX  asks 
you  for  two  numbers:  the  starting  address 
and  the  ending  address.  In  addition,  the 
Atari  version  asks  for  a  run/init  address. 
These  numbers  are  given  in  the  article  ac- 
companying the  ML  program  presented  in 
MLX  format.  The  Atari  version  also  gives 
you  three  options  for  saving  the  file;  as  a 
boot  tape,  as  disk  binary  file,  or  as  boot  disk. 
The  article  with  the  ML  program  should 
suggest  which  format  to  use. 

When  you  run  MLX,  you'll  see  a  prompt 
corresponding  to  the  starting  address.  The 
prompt  is  the  current  line  you  are  entering 
from  the  listing.  It  increases  by  six  each  time 
you  enter  a  line.  That's  because  each  line  has 
seven  numbers — six  actual  data  numbers 
plus  a  checksum  number.  The  checksum  veri- 
fies that  you  typed  the  previous  six  numbers 
correctly.  If  you  enter  any  of  the  six  numbers 
wrong,  or  enter  the  checksum  wrong,  the 
computer  rings  a  buzzer  and  prompts  you  to 
reenter  the  line.  If  you  enter  it  correctly,  a 
bell  tone  sounds  and  you  continue  to  the 
next  line. 

MLX  accepts  only  numbers  as  input.  If 
you  make  a  typing  error,  press  the  Commo- 
dore IN5T/DEL  key  or  the  Atari  DEL/ 
BACK  SPACE;  the  entire  number  is  deleted. 
You  can  press  it  as  many  times  as  necessary 
back  to  the  start  of  the  line.  If  you  enter 
three-digit  numbers  as  listed,  the  computer 
automatically  prints  the  comma  and  goes  on 
to  accept  the  next  number.  If  you  enter  less 
than  three  digits,  you  can  press  either  the 


space  bar  or  RETURN  key  to  advance  to  the 
next  number.  The  checksum  automatically 
appears  in  inverse  video  for  emphasis. 

To  simplify  your  typing,  the  Commo- 
dore 64  version  of  MLX  redefines  part  of  the 
keyboard  as  a  numeric  keypad  (lines 
581-584): 


U 

H       J 

M 


I       O 
K       L 


become 


MLX  Commands 

When  you  finish  tj'ping  an  ML  listing  (as- 
suming you  type  it  all  in  one  session),  you 
can  then  save  the  completed  program  on 
tape  or  disk.  Follow  the  screen  instructions. 
If  you  get  any  errors  while  saving,  you  prob- 
ably have  a  bad  disk,  or  the  disk  is  full,  or 
you've  made  a  typo  when  entering  the  MLX 
program  itself. 

You  don't  have  to  enter  the  whole  ML 
program  in  one  sitting.  MLX  lets  you  enter  as 
much  as  you  want,  save  it,  and  then  reload 
the  file  from  tape  or  disk  later.  Each  com- 
mand is  accessed  by  pressing  one  letter,  plus 
the  SHIFT  key  for  64  MLX  or  the  CTRL  key 
for  the  Atari  version.  MLX  recognizes  these 
commands: 


Commodore 

Atari 

Command 

SHIFT-S 

CTRL-S 

Save 

SHIFT-L 

CTRL-L 

Load 

SHIFT-N 

CTRL-N 

New  Address 

SHIFT-D 

CTRL-D 

Display 

When   y( 

ju   enter   a 

command,    MLX 

jumps  out  of  the  line  you've  been  typing,  so 
we  recommend  you  do  it  at  a  new  prompt. 
Use  the  Save  command  to  save  what  you've 
been  working  on.  It  will  save  on  tape  or  disk, 
as  if  you've  finished,  but  the  tape  or  disk 
won't  work,  of  course,  until  you  finish  the 
typing.  Remember  to  make  a  note  of  what 
address  you  stop  at.  The  next  time  you  run 
MLX,  answer  all  the  prompts  as  you  did 
before — regardless  of  where  you  stopped 
typing — then  insert  the  disk  or  tape.  When 
you  get  to  the  entry  prompt,  press  SHlFT-L 
(64)  or  CTRL-L  (Atari)  to  reload  the  partly 
completed  file  into  memory.  Then  use  the 
New  Address  command  to  resume  typing. 
To  use  the  New  Address  command, 
press  SHIFT-N  (64)  or  CTRL-N  (Atari)  and 
enter  the  address  where  you  previously 
stopped.  The  prompt  will  change,  and  you 
can  then  continue  t>'ping.  Always  enter  a 
New  Address  that  matches  up  with  one  of 
the  line  numbers  in  the  MLX-format  listing, 
or  else  the  checksum  won't  work.  The  Dis- 
play command  lets  you  display  a  section  of 
your  typing.  After  you  press  SHIFT-D  or 
CTRL-D,  enter  two  addresses  within  the  line 
number  range  of  the  listing.  You  can  break 
out  of  the  listing  display  and  return  to  the 
prompt  by  pressing  any  key. 

Atari  MLX:  Machine 
Language  Entry 

Dfl  100  GRAPHICS  fl!DL  =  PEEK(56 
0) +256* PEEK (561 ) +4! PQ 
KE  DL-1,71:PQKE  DL+2, 
6 

NJ110  POSITION  8,0:?  "MLX": 
POSITION  23,0:?  "  IB33D 
L-hlJ=MJ.War"  :  PflkE  710, 
0:  ? 

K 120    ?  "Starting  flddr»ss"! 


: INPUT  BEG:?  "  Endin 
g  Address" ;: INPUT  FIN 
!?  "Run/Init  Address" 
;: INPUT  STARTADR 

00  130  DIM  A  (6)  ,  BUFFER*  (FIN- 
BEG+127)  , T*  <20)  ,F« (20 
) ,CID« (7) , SECTOR* ( 12S 
) ,DSKINV»(6) 

JJ  140  OPEN  #1  ,  4,  0,  "K:  "  :  ?  :? 
, "Dape  or  Eisk:"; 

BH  1S0  BUFFER*  =  CHR*  (0)  :  BUFFE 
R*  tFIN-BEG  +  30) =BUFFER 
t: BUFFER* (2) =BUFFER*: 
SECTDR«=BUFFER* 

EC  160  ADDR-BEB:  CIO«  =  "hhh"  :C 
IOt(4)=CHR*<170):Cia* 
(5)""LV":C1D* (7)=CHR* 
(22S) 

EJ  170  6ET  #1,MEDIA:IF  MEDIA 
084  AND  MEDIfl<>68  TH 
EN  170 

PO  1B0  ?  CHR«CMEDIA)  :  ?  :IF  M 
EDIA<>ASC("T" )  THEN  B 
UFFER«= GGTD  250 

PL  190  BEG  =  BEG-24sBUFFERS  =  CH 
R» (0)  5  BUFFER* (2)=CHR* 
<INT ( (FIN-BEG+127) /12 
8)  > 

ef  200  H=INT  (BEG/256)  :L  =  BEG- 
H*25A! BUFFER* (3) =CHR« 
(L)  I  BUFFER*  (4>=CHR» (H 
) 

EC210  PINIT  =  BEG+8:  H=INT  (PIN 
IT/ 256) : L=PINIT-H»256 
: BUFFER* ( 5 ) =CHR* ( L ) : B 
UFFER* (6) =CHR* (H) 

PS  220  FDR  1=7  TO  24:  READ  A: 
BUFFER*(I)=CHR«(fi) sNE 
XT  I:DATA  24,96,169,6 
0,141,2,211, 169, 0,133 
, 10, 169,0, 133, 11,76,0 

>B 

OP  230  H=INT(STARTADR/256)  :L 
=STARTADR-H» 256: BUFFE 
R»(15)=CHR*(L) : BUFFER 
* ( 19) =CHR* (H) 
BUFFER* (23) =CHR* (L) : B 
UFFER* (24)=CHR* (H) 
IF  MEDIAOASC  (  "D"  )  TH 
EN  360 

?  :7  "Boot  Eisk  ar     Bi 
nary  Qi les " 3 
BET  »H,DTYPE:IF  DTYPE 
068  AND  DTYPEO70  TH 
EN  270 

?  CHR* (DTYPE) : IF  DTYP 
E-70  THEN  360 
BEG=BEG-30; BUFFER«-CH 
R*<0) : BUFFER* (2) =CHR* 
(INTC (FIN-BEG+127) /12 
8)  ) 

KG  300  H=INT  (BEB/256)  :L  =  BEG- 
H*256! BUFFER* (3)=CHR* 
(L) : BUFFER* (4)=CHR* (H 
) 

KKSIB  PlNIT  =  STARTflDR:  H=INT  < 
PI  NIT/256)  :L  =  PINIT-H« 
256: BUFFER* (5) =CHR*(L 
)  jBUFFER*  (6)'»CHR«  <H) 

flO 320  RESTORE  330: FOR  1=7  T 
O  30:READ  A:BUFFER«<I 
) =CHR* (A) : NEXT  I 

6A  330  DATA  169,0,141,231,2, 
133, 14, 169, 0, 141 , 232, 
2, 133, 15, 169,0, 133, 10 
, 169, 0, 133, 11 ,24, 96 

08  340  H=INT(BEB/2S6)  :L  =  BEG- 
H* 256: BUFFER* (8)=CHR* 
(L) : BUFFER* ( IS )=CHR« ( 
H) 

00  350  H=INT  (STARTADR/256)  :L 
=STARTADR-H«256: BUFFE 
R*(22)=CHR4<L) :BUFFER 


KL  240 

HI  250 

m  260 

U  270 

EH  280 

PJ  290 
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«  (26)  -CHRKH) 

HO  690 

POKE  752,1: FDR  1=1  TO 

ICBLEN-B401 :cSTAT-835 

IP  360 

GRAPHICS  0:POKE  712,1 

3i?  CHR« (30) ; ! 6ET  *6 

»D  1000 

H= INT (ADR (BUFFERS) /2 

0JPOKE  710,10!PaKE  70 

,TjIF  T044  AND  TOSS 

56) sL=ADR<BUFFER«) -H 

9,2 

THEN  ?  CHR«(A) 5 :NEXT 

t256:P0KE  ICBADR+X,L 

JK  370 

?  ADDR; ": " i : FOR  J=l  T 

I 

:POKE  ICBADR+X+1,H 

Q  6 

PI  700 

POKE  752,0:?  "  » ; CHR* 

FH  1  0  1  0 

L=FIN-BEe+l:H=INT (L/ 

NF  380 

BDSUB  5701  IF  N  =  -l  THE 

(126) ! :RETURN 

256) :L=L-Ht256sP0KE 

N  J=J~l:GOTa  380 

K)I710 

GRAPHICS  0:POKE  710,2 

ICBLEN+X.LsPOKE  ICBL 

BF  390 

IF  N— 19  THEN  720 

6SPDKE  712,26!PaKE  70 

EN+X+1,H 

01  400 

IF  N=-12  THEN  LET  PEA 

9,2 

no  1020 

POKE  ICCDM+X, ll-4*RE 

D=1:S0T0  720 

FF720 

IF  MEDIA=ASC( "T")  THE 

AD: A=USR(ADR(CIOt) , X 

Itl  410 

TRAP  410! IF  N=-14  THE 

N  B90 

BG  1030 

> 

N  ?  :?  "New  Address"? 

OJ  730 

REM  ■.>>ikU9 

POKE  195, PEEK ( ICSTAT 

! INPUT  ADDRs?  : GOTO  3 

01:740 

IF  READ  THEN  ?  s?  "Lo 

KA  1040 

) : RETURN 

70 

ad  File";? 

REM  ».-l;44i.J;^«iH 

JD  420 

TRAP  32767!  IF  NO-4  T 

16  750 

IF  DTYPEO70  THEN  104 

EC  1050 

IF  READ  THEN  1100 

HEN  480 

0 

HE  1060 

?  :?  "Format  Disk  In 

flj  430 

TRAP  430:?  :?  "Displa 

AE760 

?  ;?  "Enter  AUTORUN.S 

Drive  1?  (V/N) ! " ; 

y:Fro(n"  ;  :  INPUT  F:  ?  ,  " 

ys  for  automatic  use" 

FC  1070 

GET  #1  ,  A!  IF  A07B  AN 

Tq"5!1NPUT  TsTRAP  327 

:?  !?  "Enter  filename 

D  AOB9  THEN  1070 

67 

"; INPUT  T« 

EC  10B0 

?  CHR* (ft) : IF  A=7B  TH 

HL  440 

IF  F<BEG  OR  F>FIN  OR 

eF7  7a 

F«-T«iIF  LEN(T«)>2  TH 

EN  1100 

T<BEG  OR  T>FIN  OR  T<F 

EN  IF  T«(l,2) <>"D! "  T 

CP  1090 

?  :?  "Formatting..." 

THEN  ?  CHR*(2S3) ; "At 

HEN  F»»"D: ":F« (3) =T* 

sXIO  254, #2, 0,0, "D; " 

least  "; BEG; ",  Not  M 

M   780 

TRAP  B70SCLQSE  «2!OPE 

:?  "Format  Complete" 

ore  Than  ";FIN:GaTO  4 

N  #2, B-4tREAD,0,F$i ? 

!? 

30 

I ?  "Working, . . " 

AC  1  1  00 

NR=1NT ( (FIN-BEG+127> 

BH450 

FOR  I=F  TD  T  STEP  6:? 

Jit  790 

IF  READ  THEN  FDR  1=1 

/128) :BUFFER»(FIN-BE 

t ?  Is "5 "; : FDR  K=0  TO 

TO  6!GET  #2,AsNEXT  Is 

G+2)=CHR« (0) : IF  READ 

5:  N»=PEEK  (ADR  (BUFFER* 

GOTO  B20 

THEN  ?  "Reading. . . " 
I  GOTO  1120 

) +I+K-BEG) :T«  =  "000";  T 

PO  800 

PUT  «2,255:PUT  #2,255 

«(4-LEN (STR» (N> ) ) =STR 

tu  ei0 

H-INT (BEG/ 256) :L=BEG- 

LE  1110 

?  "Writing. . . " 

S(N} 

H*2S6:PUT  #2,L:PUT  #2 

LI  1  120 

FDR  1=1  TO  NR:S=I 

M460 

IF  PEEK (764) <255  THEN 

,H:H=lNT(FIN/256) : L=F 

to  1  130 

IF  READ  THEN  eOSUB  1 

GET  #l,fljPQP  :PDP  :? 

IN-H»256:PUT  »2,L!PUT 

220! BUFFER* (I»128-12 

SBOTO  370 

*2,H 

7>=SECT0R*!G0T0  1160 

Fit  470 

?  T«; ", "5 :NEXT  Ks?  CH 

KF  820 

GOSUB  970: IF  PEEK(19S 

PL  1140 

SECTOR *=BUFFER»(Itl2 

R«(126) ; :NEXT  I:?  :? 

) >1  THEN  B70 

8-127) 

:GDTD  370 

IF  830 

IF  STARTADR-0  OR  READ 

Alt  1150 

GOSUB  1220 

EA  480 

IF  N<0  THEN  ?  iGOTO  3 
70 

FD  B40 

THEN  S50 
PUT  #2,224!PUT  #2,2!P 

ON  1160 

IF  PEEK(DSTATS)<>1  T 
HEN  1200 

m  490 

ft(J)=N:NEXT  J 

UT  #2,225:PUT  «2,2:H= 

FB  1170 

NEXT  I 

JII500 

CKSUM=ADDR-1NT (ADDR/2 

INT (START ADR/ 256) ; L=S 

Git  1180 

IF   NOT  READ  THEN  EN 

S6>»256:F0R  1=1  TO  6i 

TARTADR-H*256:PUT  #2, 

D 

CXSUM-CKSUM+A ( n ! CKSU 

LiPUT  #2,H 

BK  1190 

?  s?  : LET  READ*0:BOT 

M-CKSUM-256* (CKSUM>25 

HK850 

TRAP  32767: CLOSE  #2:? 

0  360 

5):NE)CT  1 

"Finished.  ■':  IF  READ 

JJ  1200 

?  "Error  on  disk  ace 

KK  510 

RF=128:S0UND  0,200,12 

THEN  ?  :?  :LET  READ=0 

ess.":?  "May  need  fo 

pSiGOSUB  570:SOUND  0, 

:GOTD  360 

rmatting. ":GOTQ  1040 

0,0,0:RF=0!?  CHR»(126 

KF  860 
FO870 

END 

?  "Error  •■;PEEK(  195)  ; 

«  1210 
GL  1220 

REM 

t 

REM  K-i4Hli>J:«;H>4^:S^XB 

CH520 

IF  NOCKSUM  THEN  ?  :? 

"  trying  to  access":? 

m=l:Mlk*H:i  = 

■■Incorrect"  jCHR*(2S3 

FtsCLDSE  «2:?  ; GOTO 

IB  1230 

REM  Drive  ONE 

1  s  »  *?   V  RflTn   TTd 

760 

IH  1240 

REM  Pass  buffer  in  S 

i    f    I    f       ItsUlU   O/W 

KC  880 

EK  530 

FOR  W=15  TD  0  STEP  -1 

REM  H^lilib^w-i-i^s 

ECTOR* 

iSDUND  0,50, 10,W!NEXT 

KN890 

IF  READ  THEN  ?  :?  "Re 

!tP  1  250 

REM  sector  #  in  vari 

W 

ad  Tape" 

able  S 

PL  540 

FOR  I-l  TD  iiPOKE  ADR 

KI  900 

?  n?  !?  "Insert,  Rewi 

ES  1260 

REM  READ=1  for  read. 

< BUFFER* )+ADDR-BEG+ I - 

nd  Tape. "I?  "Press  PL 

H  1270 

REM  READ-0  for  write 

HB  550 

1,A(I)|NEXT  I 
ADDR'ADDR+6; IF  ADDR<= 

AY  " 1 : IF   NOT  READ  TH 
EN  ?  "i,    RECORD" 

BN  1280 
EL  1290 

BASE=3«256 

DUNIT  =  BASE+ls  DCDMN0= 

FIN  THEN  370 

LP  910 

?  I?  "Press  l;l;*<ll:<:  wh 

BflSE+2:DSTATS=BASE+3 

GH  560 

GOTO  710 

en  ready: " ; 

HL  1300 

DBUFLD=BASE+4:DBUFHI 

FI  570 

N-0IZ-0 

JH  920 

TRAP  960:CLaSE  #2!DPE 

-BASE+5 

FH  580 

GET  #1, Al IF  A-155  OR 

N  *2,8-4*READ, 128, "C: 

AI  1310 

DBYTLO-BASE+BsDBYTHI 

A-44  OR  A-32  THEN  670 

"I?  :?  "Working.  .  .  " 

-BASE+9 

FB  590 

IF  A<32  THEN  N--AiRET 

m  930 

GOSUB  970JIF  PEEK (195 

JA  1320 

DAUX1=BASE+10.DAUX2= 

URN 

) >1  THEN  960 

BASe-t-11 

EB  600 

nL6i0 

IF  A0126  THEN  630 

m  940 

CLOSE  •2sTRAP  327671? 
"Finished.":?  :?  :IF 

PN  13  30 
CA  1340 

REM  DIM  DSKINV«(4) 
DSKINV*="hLS":DSKINV 

GOSUB  6901  IF  I-l  AND 

T-44  THEN  N— H?  CHR» 

READ  THEN  LET  READ=0 

«(4) =CHR« (228) 

(126) 1 iBOTO  690 

Hf  950 

■GOTO  360 
END 

PF  1350 

POKE  DUNIT, 1: A=ADR(S 
ECTOR*) ! H=INT (A/ 256) 

eH620 

SOTO  570 

GJ  630 

IF  A<4B  OR  A>57  THEN 

CD  960 

?  I?  "Errar  ";PEEK(19 

sL-A-256*H 

SB0 

S) ( "  whan  readlng/wri 

GP  1360 

POKE  DBUFHI.H 

UN  640 

?  CHR«(A+RF> 5 :N=N*10+ 

ting  boot  tape":?  : CL 

CO  1370 

POKE  DBUFLO,L 

A-4B 

QSE  «2lB0Ta  890 

PD  1380 

POKE  DC0MND,a7-5tREA 

ES6S0 

IF  N>255  THEN  ?  CHR» ( 
253) ; ! A=126:SDT0  600 

I1B  970 

REM  itHtmm.%i.r^t-A>i.mJ!t:t 

D 

AA  1390 

POKE  DAUX2, INT(S/256 
)!POKE  DAUXl ,S-PEEK( 
DAUX2) t256 

EH  660 
JH670 

Z-Z+l:IF  Z<3  THEN  5B0 
IF  Z=0  THEN  ?  CHR*(25 

■r  vntp .     RERD=1  for  rW 

nrr 

3>  J  :BDTD  570 

U   9B0 

X-32:REM  Filett2,*20 

KJ  1400 

ft-USR(ADR(DSKINV») ) 

i:C680 

?  ",";: RETURN 

EF  990 

ICC0M-B34S ICBADR-836I 

KG  1 4  1 0 

RETURN 
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64  MLX:  Machine  Language 
Entry 

10    ElEM    LINES    CHANGED    PROM   MLX 
t SPACE }VERSION    2.00    ARE    750 
,765,770   AND    860  srem   50 

20    REM    LINE    CHANGED    FROM    MLX   V 
ERSION    2.01    IS    300    :rem   147 

100  PRINT"{CLR]i63";CHR?{142); 
CHR5(8); :P0KE53281,1: POKES 
3280,1  : rem  67 

101  POKE  788,52sREM  DISABLE  RU 
N/STOP  :rem   119 

110   PRINT" {RVS)t 39   SPACES)"; 

irem   17  6 

120    PRINT" (RVS) [14    SPACES} 
{RIGHT) [OFF)i*l£(RVSj 
{RIGHT}     [RIGHT)T2    SPACES] 

E*ICoffJE*3£{rvs}£{rvs) 

(14   SPACES}'^;  :rem   250 

130    PRINT "{ RVS } {14    SPACES) 
{RIGHT}     EGi {RIGHT) 
{2    RIGHT)     {OFF)£{RVS)£ 
g*3{0FF)g*}{RVST 
{14   SPACES)";  srem  35 

140    PRINT" IRVS) {41    SPACES)" 

:rem   120 

200  PRINT" {2  down) {PUR} {ELK}  H 
ACHINE  LANGUAGE  EDITOR  VER 
SION   2.02(5    DOWN)": rem   238 

210    PRINT"g5i{2    OP) STARTING    AD 

DRESS? {8    SPACES} {9    LEFT}"; 

: rem   143 

215  INPUTS:F=l-F!C5=CHR$(31+ll 
9*F)  :rein   166 

220  IFS<256OR(S>40960ANDS<491S 
2)ORS>53247THENGOSUE3000:G 
OTO210  :reni   235 

225    PRINT  SPRINT: PRINT    :rem   130 

230  PRINT"g53{2  UP)ENDING  ADDR 
ESS? {8  SPACES} 19  LEFT)";!l 
NPUTE!F=1-F!C?=CHR5 ( 31+119 
*F)  :rera   20 

240  IFE<256OR(E>40960ANDE<4915 
2) ORE>  53247THENGOSUB3000 iG 
QTQ230  :rem   183 

250  IFE<STHENPRINTC$;"(RVS)END 
ING  <  START{2  SPACES)" :GOS 
UB1000SGOTO    230         :rera    176 

260    PRINT: PRINT: PRINT    :rem   179 

300    PRINT" {CLR}";CHR?( 14) !AD=S 

:rem   56 

310  A=l :PRINTRIGHT$( "0000"+MID 
$(STR$CAD),2),5);"s"; 

irein   33 

315    FORJ=AT06  ! rem    33 

320  GOSUB570:IFN=-1THENJ=J+N:G 
OTO320  trem   228 

390    IFN=-2HTHEN   710         :rem   62 

400   IFN=-204THEN   790         i rem   64 

410    IFN=-206THENPRINT: INPUT" 

{DOWN} ENTER   NEW   ADDRESS" ;Z 
Z  : rem   44 

415  IPN=-206THEN1FZZ<SORZZ>ETH 
ENPRINT"lRVS}OUT  OF  RANGE" 
:GOSUB1000:GOTO410:rem   225 

417  IFN=-206THENAD=Z2  .-PRINT  :GO 
TO310  :rem   238 

420    IF   NO -196   THEN   480 

:rera   133 

430  PRINT: INPUT "DISPLAY :FROM"; 
F:PRINT, "TO" ; ilNPUTT 

srem  234 

440  IFF<SORP>EORT<S0RT>ETHENPR 
INT"AT  LEAST" ;S;" {LEFT},  N 
or  MORE  THAN";E:GOTO430 

:rem  159 

450  F0RI=FT0TSTEP6:PR1NT:PRINT 
RIGHT? { "0000"+MID$ ( STR? ( I ) 
, 2  )  ,  5 ) ; " : " ;  . rem   30 

451  FORK=0TOS:N=PEEK(I+K) rPRIN 


TRIGHTS ( " 00 " +MID5 ( STR? ( N ) , 
2 ) , 3 ) ; " , " ;  : rem   66 

460  GETA5:IFA$>""THENPRINTiPRI 
NT:GOTO310  :rem   25 

470  NEXTKtPRINTCHR5(20); :NEXTI 
: PRINT i  PRINT ! GOTO310 

irem  50 

480  IFN<0  THEN  PRINT :GOTO310 

J  rem  168 

490  ACJ)=NsNEXTJ      srem  199 

500  CKSUM=AD-INT(AD/256)*256;F 
0RI=1T06  i  CKSUM=( CKSUH+A ( I ) 
)AND255!NEXT      : rem  200 

510  PRINTCHR?(18);:GOSUB570>PR 
INTCHR5(146);       srem  94 

511  IFN=-lTHENA=6:GOT0315 

:rem   254 

515    PRISTCHR$(20):IFN=CKSUMTHE 

N530  srem   122 

520    PRINT! PRINT "LINE    ENTERED    W 

RONG    t    RE-ENTER"! PRINT :GOS 

UB1000!GOTO310     ; rem  176 

530  GOSUB2000         J  rem  218 

540  F0RI=1T06:P0KEAD+I-1,A(I) : 

NEXT ! POKE5427  2,0: POKE5427  3 

,0  srem  227 

550  AD=AD+6:IF  AD<E  THEN  310 

: rem  212 
560  GOTO  710  srem  108 

570  N=0:Z=0  srem  38 

580  PRINT "E£3";  srem  81 

581  GETA?!lFA5=""THEN581 

srem  95 

582  AV=-(A5="M")-2*(A$=",")-3* 
( A?=" . " )-4* (A$=" J" )-5* (A5= 
"K")-6*(A5="L")     srem  41 

583  AV=AV-7*(A?="U")-8*(A?="I" 
)_9*{A5="0")!lFA$="H"THENA 
$="0"  srem  134 

584  IFAV>0THENA?=CHR$(48+AV) 

srem  134 

585  PRINTCHR?(20); !A=ASC(A?) si 
FA=13ORA=44ORA=32THEN670 

srem  229 
590  IFA>128THENN=-A! RETURN 

srem  137 
600  IFAO20  THEN  630    srem  10 
610  GOSUB690:IFI=1ANDT=44THENN 
=-1  SPRINT" {OFF} (LEFT) 
(LEFT)"; :GOTO690    srem  62 
620  GOTO5  70  srem  109 

630  IFA<48ORA>57THEN580 

srem  105 
640  PRINTA$; !N=N*10+A-48 

srem  106 

650  IFN>255  THEN  A=20 sGOSUB100 

0:GOTO600  srem  229 

660  Z=Z+l!lFZ<3THEN580  irem  71 

670  IFZ=0THENGOSUB1000:GOTO570 

srem  114 
680  PRINT","; sRETURN   srem  240 

690  S%=PEEK(209)+256*PEEK(210) 
+PEEK(2H)         srem  149 

691  F0RI=1T03eT=PEEK(S%-I) 

srem  67 

695  IFT<>44ANDT<>58THENPOKES%- 
I,32sNEXT  irem  205 

700  PRINTLEFT$(''{3  LEFT}",I-1) 
; : RETURN  :rem   7 

710  PRINT"{CLR)[RVS)***  SAVE  * 
**(3   DOWN}"  srem  236 

715  PRINT"{2  DOWN) (PRESS  (RVS) 
RETURN [OFF)  ALONE  TO  CANCE 
L    SAVE) {DOWN}"  :rem   106 

720  F5="":INPUT»{DOWN)  FILENAM 
E";F5 sIFF5=""THENPRINT:PRl 
NTsGOTO310  :rera   71 

730  PRINT; PRINT" {2  D0WN)(RVS)T 
[OFF) APE  OR  (RVS)D[0FF)ISK 
:    (T/D)"  -J rem  228 

740    GETA$  sIFA5<>"T"ANDA$<>"D"T 


HEN740  srem   36 

750  DV=l-7*  CAS="D" ) s IFDV=8THEN 
P9="0  8 "+F? :OPEN15,8,15 , "S" 
+F$sCL0SE15  srem   212 

760  T^=F5sZK=PEEK(53)+256*PEEK 
(54)-LEN(T$) sPOKE782,ZK/25 
6  ! rem   3 

762  POKE781,ZK-PEEK(782)*256jP 
OKE780,LEN(T5) sSYS65469 

srem   109 

763  POKE780,lsPOKE781,DV:POKE7 
a2,lsSYS65466       srem  69 

765  K=SsPOKE254,K/256!POKE253, 
K-PEEK{254)*256!POKE780,25 
3  srem  17 

766  K=E+lsPOKE782,K/2S6:POKE78 
l,K-PEEK(782)*256sSYS65496 

srem   235 

770  IFCPEEK(783)AND1)0R(191AND 
ST)THEN780  srem   111 

775  PRINT"{DOWN}DONE. {D0WN}"sG 
OTO310  srem   113 

780  PRINT" [DOWN) ERROR  ON  SAVE- 
{2  SPACES }TRY  AGAIN. "sIFDV 
=1THEN720  srem   171 

731  OPEN15,a,15!lNPUT#15,E15,E 
25sPRINTEl$;E2?jCLOSE15:GO 
TO720  srem  103 

790  PRINT" (CLR) (RVS)***  LOAD  * 
**{2    DOWN)"  srem   212 

795  PRINT" (2  DOWN) (PRESS  {RVSJ 
RETURN {OFF}  ALONE  TO  CANCE 
L   LOAD)"  srem   82 

800  F5  =  "'*sINPUT'^{2  DOWN)  FILEN 
AME" ; F5  s IFF§  =  " "THENPRINT sG 
OTO310  srem   144 

810  PRINT: PRINT" [2  D0HN}{RVS)T 
[OFFJAPE  OR  {RVSjD{OFF)lSK 
s     (T/D)"  srem   227 

820  GETA$  5 IFA5<> "T "ANDA?<> "D"T 
HENS 20  srem   34 

830  DV=l-7*(A?="D")sIFDV=8THEN 
F5="0s"+F5  srem  157 

840  T5=F?s2K=PEEK{53)+256*PEEK 
{54)-LEN{T5) !POKE782,ZK/25 
6  :  rem  2 

841  POKE781,ZK-PEEK(782)*256sP 
OKE780,LEN(T?) SSYS65469 

srem  107 
845    POKE780,l!POKE781,DVsPOKE7 
82,1:SYS65466  srem   70 

850   POKE780,0:SYS65493    srem   11 
860    IF(PEEK(783)AND1)0R(191AND 
ST)THEN870  srem  111 

865    PRINT" {DOWN}DONE."sGOTO310 

srem  96 
870  PRINT "{down} ERROR  OK  LOAD. 
{2  SPACES }TRY  AGAIN. {down} 
"sIFDV=1THEN800  srem  172 
830  OPEN15,8,15!lNPUT#15,El$,E 
2$!PRINTE1$;E2$!CL0SE15;G0 
TO800  srem   102 

1000  REM  BUZZER  srem  135 

1001  POKE54296,15;POKE54277,45 
:P0KE54278,165         srem   207 

1002  POKE54276,33:P0KE  54273,6 
:POKE54272,5  srem  42 

1003  FORT=lTO200sNEXT:POKE5427 
6 , 32 :POKE54273 , 0  s  POKE5427 
2,0iRETURN  srem  202 

2000  REM    BELL    SOUND  srem    78 

2001  POKE54296,15iPOKE54277,0: 
POKE54278,247  srem    152 

2002  POKE  54276,17 5POKE54273, 4 
0iPOKE54272,0  srem  86 

2003  PORT=lTO100sKEXT!POKE5427 
6, 16 5 RETURN  srem    57 

3000  PRINTC$;"{RVS}NOT  ZERO  PA 
GE    OR   ROM"; GOTO 1000 

srem  89 
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Saving  Time 
And  IViemory: 

An  Atari  Variable  Utility 


p.  E.  Thompson 


Here's  a  utiiity—actualli/  three  sepa- 
rate programs — which  can  help  pro- 
grammers save  time  and  conserve 
memory.  With  them,  you  can  list,  re- 
name, and  abbreviate  all  variable 
names  in  a  BASIC  program.  A  thor- 
ough explanation  is  included. 


One  valuable  feature  of  Atari  BASIC 
is  its  provision  for  long  variable 
names — up  to  128  characters,  with 
every  character  significant.  Naming 
variables  for  what  they  represent, 
such  as  AVERAGE,  rather  than  using 
a  cryptic  code,  like  A,  makes  pro- 
grams self-documenting  and  more 
readable. 

However,  there  are  two  disad- 
vantages. First,  if  you  want  to  re- 
name a  variable,  it  is  time- 
consuming  to  go  back  through  an 
entire  program  to  edit  long  variable 
names.  Second,  long  names  length- 
en program  lines  and  make  it  diffi- 
cult to  add  statements  to  the  lines 
later.  (Long  variable  names,  how- 
ever, don't  consume  much  more 
memory;  the  Atari  stores  every  char- 


acter of  a  name  only  for  the  first 
reference,  and  uses  a  lookup  table 
for  subsequent  references.) 

The  utility  programs  following 
this  article  solve  both  problems.  In 
addition,  the  program  steps  are  ex- 
plained in  detail  so  you  can  under- 
stand what's  happening.  If  you  wish, 
you  can  readily  modify  the  programs 
or  use  some  of  the  same  techniques 
in  your  own  programming. 

The  Variable  Name  Table 

Changing  variable  names  in  Atari 
BASIC  is  actually  very  easy.  Each 
name  is  stored  in  a  lookup  table 
called  the  Variable  Name  Table. 
When  a  program  is  being  listed, 
BASIC  references  this  table  each 
time  a  variable  appears.  When  you 
change  a  name  in  the  table,  every 
name  in  the  program  listing  also 
changes. 

You  can  locate  the  Variable 
Name  Table  by  examining  memory 
locations  130  and  131  (decimal)  for 
the  start  of  the  table,  and  locations 
132  and  133  for  the  end  of  the  table. 
Try  this  example.  Load  a  BASIC  pro- 


gram, type  the  following  line  in  im- 
mediate mode  (no  line  number),  and 
press  RETURN: 

FOR  X  =  PEEKa30)-FPEEKa31)'256 
TO  PEEK(132)-t-PEEK(133)'256: 
PRINT  CHR$(PEEK<X));;NEXT  X 

This  line  converts  the  bytes  in 
those  addresses  to  decimal  locations 
by  adding  the  least  significant  byte 
(LSB)  to  the  product  of  the  most 
significant  byte  (MSB)  times  256. 
Then  it  displays  the  character  repre- 
sentations of  each  memory  position 
between  those  locations.  These 
character  representations  are  the 
Variable  Name  Table. 

The  table  does  not  look  quite  as 
you  might  expect.  Sprinkled  through- 
out are  characters  in  inverse  video. 
These  characters  are  flags  which  sig- 
nal the  end  of  a  variable  name  and 
indicate  the  variable  type.  If  the  type 
is  a  scalar  variable  (that  is,  a  num- 
ber), the  last  character  of  the  name  is 
in  inverse  video.  For  string  vari- 
ables, an  inverse-video  dollar  sign  is 
appended.  For  an  array  variable,  an 
inverse-video  left  parenthesis  is 
added. 
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By  scanning  the  table,  you  may 

see  variable  names  that  no  longer 
appear  in  the  program  itself.  This 
can  happen  for  two  reasons.  First, 
mistyped  commands  entered  in  im- 
mediate mode  while  you're  pro- 
gramming may  be  inadvertently 
interpreted  by  BASIC  as  variable 
names,  and  therefore  added  to  the 
table.  Second,  variable  names  used 
in  a  program  but  later  removed  are 
not  deleted  from  the  name  table. 

The  only  way  to  remove  these 
unused  names  is  to  LIST  the  pro- 
gram to  tape  or  disk,  type  NEW  to 
erase  the  program  in  memory,  and 
then  re-ENTER  the  program.  When 
you  load  a  program  with  ENTER, 
BASIC  reinterprets  each  line  as  if 
you  were  typing  the  program  man- 
ually. (That's  why  ENTER  takes 
longer  than  LOAD.) 


Using  The  Utilities 

Follow  these  steps  to  use  each 
utility: 

1.  Type  each  one  into  the  computer 
individually  from  the  listings  here. 
REM  lines  are  included  strictly  for 
reference  and  can  be  eliminated  to 
save  typing. 

2.  Store  each  utility  on  tape  or  disk 
using  the  LIST  command,  not  SAVE. 

3.  Type  NEW  to  erase  any  program 
in  memory.  Load  the  program  on 
which  the  utility  will  operate.  Make 
sure  the  program  has  no  line  num- 
bers greater  than  31999. 

4.  Load  the  appropriate  utility  using 
the  ENTER  command.  For  example, 
ENTER"C:"  for  tape  or  ENTER"D: 
filename"  for  disk.  This  appends  the 
utility  to  the  end  of  the  program.  (If 
your  program  has  line  numbers 
greater  than  31999,  they  will  be  re- 
placed by  the  utility.) 

5.  Run  the  utility  by  typing  GOTO 
32000  and  pressing  RETURN. 

6.  Write  down  the  two  starting  ad- 
dresses of  the  Variable  Name  Table. 
If  a  utility  has  run  but  an  error  has 
been  made  or  a  change  is  required, 
these  addresses  must  be  restored 
before  any  computer  operations  can 
take  place.  To  restore  the  addresses, 
POKE  130  with  the  location  130  val- 
ue listed  by  the  utility,  and  POKE 
131  with  the  location  131  value  list- 
ed by  the  utility. 

7.  Execute  the  utility  by  responding 
to  the  screen  prompts. 


8.  Two  of  the  utilities — "Changer" 
and  "Squeezer" — require  that  you 
immediately  save  the  newly  modi- 
fied version  of  your  program  on  tape 
or  disk.  However,  you  can't  use  the 
SAVE  command  for  this  purpose  be- 
cause the  utility  is  merged  with  your 
program,  so  both  would  be  saved 
together.  Nor  can  you  save  the  pro- 
gram with  an  immediate  mode  com- 
mand, because  the  Variable  Name 
Table  would  become  garbled.  There- 
fore, line  32380  in  Changer  and 
Squeezer  automatically  LlSTs  the 
modified  program  to  tape  or  disk, 
separating  it  from  the  utility  in  the 
process.  The  utilities  currently  are 
set  up  to  LIST  your  program  to  disk 
with    the    filename    D:XXXXXXXX. 
XXX.  You  can  change  this  filename 
by  modifying  line  32380  in  both 
Changer    and    Squeezer,    Also, 
change  line  32380  in  both  utilities  to 
L1ST"C:",0,31999  for  cassette. 
9.  After  Changer  or  Squeezer  has 
automatically  saved  your  program, 
clear  the  computer  by  turning  it  off, 
then  on  again.  Then  you  can  load 
your  program  with  the  ENTER  com- 
mand for  a  test  run.  This  assures 
that  all  pointers  and  the  Variable 
Name  Table  will  be  reset  to  proper 
values. 

Lister 

The  first  utility,  "Lister,"  lists  the 
variable  names  and  types.  It  scans 
the  Variable  Name  Table  looking  for 
inverse  characters  to  determine  the 
type  of  variable.  Each  variable  and 
its  type  are  listed  in  the  order  of 
appearance  in  the  table.  More  spe- 
cific descriptions  of  the  utility's 
steps  are  included  in  the  program 
listing. 

If  you  want  hardcopy,  change 
the  PRINT  statements  in  lines 
32040,  32140,  32160,  and  32180  to 
LPRINT, 

Changer 

The  second  utility,  "Changer,"  dis- 
plays each  variable  on  the  screen 
and  gives  you  the  opportunity  to 
change  it.  Press  RETURN  to  retain 
the  variable  name. 

Changer  operates  by  adding 
either  the  existing  name  or  the 
changed  name  to  a  string  variable 
called  VARNAME$.  This  string  em- 
ulates the  format  of  the  Variable 
Name  Table,  including  the  inverse 


video  flags.  When  you've  been  giv- 
en a  chance  to  change  all  the  names, 
Changer  makes  VARNAME$  the 
new  name  table.  It  does  this  by  find- 
ing the  starting  memory  location  of 
VARNAMES  with  the  ADR  func- 
tion, then  computing  revised  values 
for  locations  130  and  131  and 
POKEing  them  into  place. 

Immediately  after  Changer  has 
LISTed  your  program  to  disk  or 
tape,  reboot  the  computer  as  de- 
scribed in  step  9. 

You  may  want  to  expand  the 
size  of  the  new  Variable  Name  Ta- 
ble, A  program  using  many  vari- 
ables or  long  names  may  have 
insufficient  space  dimensioned  for 
the  new  name  table.  If  all  the  space 
in  the  new  table  is  used  before  the 
utility  has  completed,  an  Error  5, 
String  Length  Error,  will  result.  To 
allocate  more  space,  change  the  di- 
mensioned value  for  VARNAMES 
in  line  32020  from  500  to  a  larger 
number.  You'll  have  to  use  your 
judgment  as  to  the  size  of  the  num- 
ber based  on  the  number  of  vari- 
ables and  the  length  of  the  names. 

Squeezer 

The  third  utility  is  "Squeezer."  It  is 
similar  to  Changer  except  that  each 
variable  name  is  automatically  re- 
placed by  a  unique  one-  or  two- 
letter  name.  This  shortens  the 
Variable  Name  Table  to  its  mini- 
mum length,  yet  preserves  the  abil- 
ity to  LIST  or  modify  the  program. 
It's  intended  for  use  after  a  program 
is  completely  developed  and  de- 
bugged, particularly  when  the  pro- 
gram requires  as  much  free  memory 
as  possible.  It's  also  helpful  for 
shortening  long  program  lines  so 
you  can  add  more  statements.  Dur- 
ing testing.  Squeezer  reduced  the 
size  of  one  program  by  400  bytes — 
an  impressive  figure,  especially  if 
you're  working  on  a  16K  computer. 
Squeezer  lists  the  variable  type, 
original  name,  and  revised  name.  If 
you  want  a  hardcopy,  add  the  fol- 
lowing line: 

32001  OPEN  #1,8,0,"P:" 

and  change  the  PRINT  statements 
in  lines  32045,  32050,  32060,  32160, 
32181,  32201,  32220,  32260,  and 
32300  to  PRINT  #1;. 

As  with  Changer,  after  Squeez- 
er has  LISTed  your  program  on  disk 
or  tape,  immediately  reboot  the 
computer  as  described  in  step  9. 
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For  instructions  on  entering  this  listing,  pieose 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonttity  in  cOMPUTEi. 

Program  1 :  Ll$ter 


FO  32000 

6F  32010 

HE  32011 

FB  32012 

BN  32020 
NF  32030 

BJ  32040 

m 32090 
Nl  320S1 
EE  32052 
JC  32053 
!l  32060 

IK  32070 
PB  32071 
CN  32072 
f\   32060 


DR  32070 

KB  32091 
IE  32100 

IB  32110 

CB32111 

FK  32 1 1  2 

BK  32113 
HK  32120 

KF  32130 

OP  32  131 

PH  32132 

FI  32133 

116  32140 

BC  32150 

LL  32151 
FB  32152 
FK  32153 
IL  32160 

BE  32170 


PRINT  CHR»<125) «?  z 

7 

REM  INITIALIZE  VflRI 

ABLES 

REM  NAMEt-VflRIABLE 

NAME 

REM  LOCATION-MEMORY 

ADDRESS 
CLR  iDIM  NAME«(12B) 
G08UB  320401 6DT0  32 
060 
NAME*-""!?  "TypB   i 

VariablB  Nane"iRET 
URN 

REM  BEGIN  FDR-NEXT 
LOOP 

REM  FROM  STARTING  L 
OCATION 

REM  OF  VARIABLE  NAM 
E  TABLE 

REM  TO  ENDING  LOCAT 
ION 

FOR  LOCATION-PEEKd 
30) +PEEK< 131 > t256  T 
D  PEEK<132)+PEEK (13 
3) t256-l 

REM  CHECK  FOR  INVER 
SE  CHAR. 

REM  IF  NOT, ADD  TO  N 
AME  STRING 
REM  AND  BET  NEXT  LO 
CATION 

IF  PEEK  (LOCATIONX  1 
28  THEN  NAME«(LEN(N 
AME«) +1 ) -CHR» (PEEK  < 
LOCATION)  )  1  NEXT  LOC 
ATION 

REM  IF  LOCATION  IS 
NOT  A  a 

REM  THEN  JUMP  AHEAD 
IF  PEEKCLOCATIONX  > 
164  THEN  32160 
REM  IF  VARIABLE  IS 
"NAME" 

REM  VARIABLES  IN  TH 
E  UTILITY 

REM  HAVE  BEEN  ENCOU 
NTERED 

REM  SO  WE  ARE  DONE 
REM  IF  NAME«-"NAME" 

THEN  32220 
REM  SINCE  LAST  CHAR 
ACTER  OF 

REM  THE  NAME  IS  a  P 

RINT  TYPE 

REM  "STRING"  AND  TH 

E  NAME. 

REM  GET  NEXT  LOCATI 

ON 

PRINT  "STRINBi   " | NA 

ME«:GOT0  32200 


REM  SINCE 

ACTER 

REM  OF  THE 

O 

REM  PRINT 

ND  NAME. 

REM  BET  NE 

ON 

IF  PEEK(LO 

6S  THEN  ? 

I NAME«:GOT 

REM  SINCE 

ACTER 


LAST  CHAR 

NAME  IS 

"ARRAY"  A 

XT  LOCATI 

CATION)-! 
ARRAY  I   " 
0  32200 
LAST  CHAR 


HII  32171  REM  OF  NAME  IS  INVE 

RSE, 
CD  32172  REM  CHANGE  TO  NORMA 

L. 
Ill  52173  REM  PRINT  "SCALAR" 

AND  NAME. 
IL  32174  REM  GET  NEXT  LOCATI 

ON. 
LI  32180  NAME*  <LEN(NAME«)  +  1  > 

-CHR* (PEEK (LOCATION 

) -12B) : ?  "SCALARl   " 

; NAMES 
CN  32190  REM  IF  SCREEN  IS  FU 

t-L, 
NF  32191  REM  STOP  AND  WAIT  F 

OR  INPUT, 

CI  32192  REM  RESET  SCREEN 

KC  32193  REM  FDR  MORE  NAMES. 

11132200  IF  PEEK(a4)>20  THEN 

?  1?  "PRESS  f!<^tlJ:i: 

TO  CONTINUE" ! t INPU 

T  NAME*:?  CHR«(125) 

:GDSUB  32040 
« 322 10  REM  RESET  NAME* 
HH  32211  REM  FDR  NEXT  VARIAB 

LE. 
IE  32212  REM  GET  NEXT  LOCATI 

ON. 
JB  32220  NAME*-" " t NEXT  LOCAT 

ION 
HC  32240  END 


Program  2:  Changer 


BB  32000  ?  CHR*  (125):?  :? 
6F32010  REM  INITIALIZE  VAR I 

ABLES 
LH  32011  REM  ZNflME*   =OLD  NA 

ME 
LK  32012  REM  VARNAnE*»NEW  NA 

ME  TABLE 
AB  32013  REM  RENAME*  =NEW  NA 

ME 
FD  32014  REM  LOCAT  I  ON=MEMDRY 

ADDRESS 

KL  32020  CLR  :DIM  ZNAME«(12B 

) , VARNAME* (500) , REN 

AME* ( 12B) 

Lfl  32022  ?  "VALUE  AT  LDCATIO 

130;   " jPEEK ( 130) i 

"VALUE  AT  LOCATID 

131 5   "5  PEEK  < 131)  S 


N 
? 

N 

? 

Fl  32030  GOSUB  32040:?  t  GOTO 

32060 
HD  32040  ZNAME»="":?  "Type 

:  Variable  Name":RE 

TURN 
Nfl  32050  REM  BEGIN  FOR-NEXT 

LOOP 
HI  32051  REM  FROM  STARTING  L 

OCATiON 
EE  32052  REM  OF  VARIABLE  NAM 

E  TABLE 
JC  32053  REM  TD  ENDING  LOCAT 

ION 
IL  32060  FOR  LQC  AT  I  ON  =  PEEK  (  1 

30) +PEEK ( 131 ) »256  T 

0  PEEK ( 132) +PEEK ( 13 

3) »256-l 
IH  32070  REM  CHECK  FOR  INVER 

SE  CHAR. 
PB  32071  REM  IF  NOT,  ADD  TO  N 

AME  STRING 
CK  32072  REM  AND  GET  NEXT  LO 

CATION 
tn  32080  IF  PEEK  (LOCATIONX  1 

28  THEN  ZNAME*(LEN( 

ZNAME*) +1) -CHR* (PEE 


PL  32090 
KB  32091 

m 32  100 

LB  32  1  10 

SE  321  1  1 

fH  321  12 

Bt  321  13 
16  32120 

BA  32130 

HE  32131 
U 32132 

FI  32133 

MC  32140 

BC  32150 

KK  32151 
FD  32152 

n 32  153 

OF  32160 

BE  32170 
N6  32  171 
CD  32172 
IN  32173 
FK  32174 

ne  321B0 


PP  32  190 

LS  32191 
CF  32200 


K (LOCATION) ) :NEXT  L 

OCATION 

REM  IF  LOCATION  IS 

NOT  a 

REM  THEN  JUMP  AHEAD 

IF  PEEK (LOCATION) <> 

164  THEN  GOTO  32160 

REM  IF  VARIABLE  IS 

"NAME" 

REM  VARIABLES  IN  CH 

ANGER 

REM  HAVE  BEEN  ENCOU 

NTERED 

REM  SO  WE  ARE  DONE 

IF  ZNAME«="ZNAME"  T 

HEN  GOTO  32340 

REM  SINCE  LAST  CHAR 

ACTER 

REM  OF  NAME  IS  a 

REM  PRINT  "STRING" 

AND  NAME. 

REM  GET  NEXT  LOCATI 

ON 

?  "STRING!   "; ZNAME* 

; GOTO  32200 

REM  SINCE  LAST  CHAR 

ACTER 

REM  OF  NAME  IS  B 

REM  PRINT  "ARRAY"  A 

ND  NAME, 

REM  GET  NEXT  LOCATI 

ON 

IF  PEEK (L0CATI0N)=1 

68  THEN  ?  "ARRAY  : 

"; ZNAME*: GOTO  32200 

REM  SINCE  LAST  CHAR 
ACTER 

REM  OF  ZNAME  IS  I NV 
ERSE, 

REM  CHANGE  TO  NORMA 
L. 

REM  PRINT  "SCALAR" 
AND  NAME. 

REM  GET  NEXT  LOCATI 
ON 

ZNAME* (LEN( ZNAME*) + 
1 )=CHR* (PEEK (LOCATI 
ON)-128)!?  "SCALARl 
"J  ZNAME* 

REM  INPUT  NEW  NAME 

OR  I:1jHI1:1: 

REM  IF  ND  CHANGE 

?  :?  "NEW  NAME  OR  E 

[Mmni";  INPUT  RENAME 


(1(132210  REM  USE  DOWN-ARROW 

TO  SLIDE 
JJ  32211  REM  NAME  OFF  SCREEN 
AO32220  POSITION  0,7tFOR  LI 

NE-1  TO  15s?  CHR*tl 

57):NEXT  LINEiPDSIT 

ION  2,7 


IP  32230 
JH  32231 
OK  32240 
NA  32250 
tfi  3  225  1 
AK  32260 


M 32270 


REM  IF  i;j5*-jn!i;  PRESS 

ED, 

REM  ADD  OLD  NAME  TO 

NEW  TABLE 
IF  LEN(RENAME*)-0  T 
HEN  RENAME*-ZNAME* 
REM  IF  VARIABLE  IS 
ARRAY 
REM  OR  STRING  ADD  D 

OR  a 
IF  PEEK(L0CATI0N)-1 
64  OR  PEEK (LOCATION 
)-16B  THEN  RENAME* ( 
LEN (RENAME*) +1) -CHR 
*  (PEEK (LOCATI ON)  )  jB 
OTO  32300 

REM  IF  VARIABLE  IS 
SCALAR 
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REM  CHANGE  LAST  CHA 

R 

REH  TO  INVERSE 

RENAME* (LEN (RENAME* 

) ) =CHR« (ASCCRENAME* 

(LEN (RENAME*) > ) + 1 2B 

) :GOT0  32300 

REM  ADD  NAME  TO  NEW 

REM  VARIABLE  NAME  T 

ABLE 

VARNAME«<LEN(VARNAM 

E*>  +1 ) =RENAME* 

REM  RESET  ZNAME* 

REM  FDR  NEXT  VAR I AB 

LE. 

REM  GET  NEXT  VARIAB 

LE. 

ZNftME*=" " I  RENAME*"" 

":NEXT  LOCATION 

REM  ALL  VARIABLE  NA 

MES 

REM  REVISED.   ADD  CH 

R*(0)  TO 

REM  TABLE  TO--INDICA 

TE  END 

VARNAME«(LEN (VARNAM 

E«) +1 )=CHR* (0) 

REM  CHANSE  ORIGINAL 

TABLE 
REM  ADDRESS  TO  NEW 
TABLE 

POKE  131, INT(ADR<VA 
RNAME*) /256> : POKE  1 
30, ADR  CVARNAME*) -PE 
EK(131} »2S6 
?  CHR* ( 125) s7  "NOW 
LISTING  TO  TAPE  OR 
DISK. " ! ?  "CHANSE  LI 
NE  32380  IF  DESIRED 


IL  32380  LIST  "D:  X  X  XXX  X  XX  .  XX 

X", 0,31999 
HI  32390  END 


Program  3:  Squeezer 


NL  32271 

n 32272 
FJ  32280 


fl  32290 
IE  32291 

EK  32300 

PP  32310 
HI  3231  1 

HC  32312 

ID  32320 

HC  32330 

(0  32331 

flE  32332 

PE  32340 

EE  32350 

KH  32351 

HK  323t0 

K 32370 


7     CHR* ( 125) : ?  ! ? 

REM  COUNT(0)=  NUM. 

STRINGS 

REM  C0UNT(1)=  NUM. 

ARRAYS 

REM  C0UNT(2)=  NUM. 

5CALARS 

REM  CDUNT<3)=  COUNT 

ER 

REM  CDUNT(4)=  ARGUM 

ENT  IN  SUB 

HEM  VARNAME«=  NEW  N 

AME  TABLE 

CLR  :DIM  VARNAME*<3 

84) ,C0UNT(4) 

?  "VALUE  AT  LOCATIO 

N  1301  "; PEEK ( 130) : 

?  "VALUE  AT  LOCATIO 

N  131;  "jPEEK(131)r 

? 

COUNT (0) =0! COUNT ( 1) 

-0! COUNT <2)=0i COUNT 

( 3) -0; COUNT (4)=0: GO 

SUB  32040; GOTO  3212 


GP  32030  REH  SUBROUTINES  TO 

PRINT 
JH  32031  REM  VARIABLE  NAMES 
Hfl 32040  IF  PEEK(84)<22  THEN 

GOTO  32045 
PC  32041  ?  "PRESS  m^iilrJ.-  TO 

CONTINUE" 
OB  32042  IF  PEEK(764)<>12  TH 

EN  GOTO  32042 


BA  32000 
EC  320  1  1 

BE  32012 

EH  32013 

EI  32014 

M 32015 

LO  320  16 

EH  32019 

m 32020 


FH  32022 


P6  32043  POKE  764,15Sl?  CHR* 

(125) 
06  32045  ?  "   NAME;   "jiRETUR 

N 
HE  3Z0S0  ?  "RENAME:  "5;RETUR 

N 
fN  32060  ?  VARNAME«(LEN(VARN 

AME«)  )  J  sRETURN 
M 32070  REM  SUBROUTINE  TO  D 

ETERMINE 
DP  32071  REM  NEW  VARIABLE  NA 

ME.    IF 
HB  32072  REM  ALL  SINGLE  LETT 

ER  NAMES 
HO  32073  REM  HAVE  BEEN  USED, 
KK  32074  REM  ADD  A  SECOND  LE 

TTER 
FH  32000  60SUB  320S0:IF  CDUN 

Ti4)<25  THEN  GOTO  3 

2090 
OB320B5  COUNT  (3)  =  1  +  INT  (COUN 

T (4) /2S) ! VARNAMEt (L 

EN ( VARNAME*  >  +1 ) =CHR 

»(64+C0UNT(3) ) ; GOSU 

B  32060 
PE  32090  COUNT  (3)  =  l+COUNTt4) 

-INT(C0UNT(4) /25>  »2 

5: VARNAME* (LEN (VARN 

AME*) +1 ) =CHR« (64+CO 

UNT(3) ) 
IL  32100  GOSUB  32060SRETURN 
LD32110  REM  CHECK  ALL  LDCAT 

IONS 
BI  32111  REM  FROM  START  TO  E 

ND 
PL  321  12  REM  OF  NAME  TABLE 
CK32120  FOR  LOCAT  IDN  =  PEEK  (  1 

30) +PEEK ! 131 ) «256  T 

0  PEEK (132) +PeEK ( 13 

3) *256 
E632130  REM  IF  CHARACTER  IS 

CHR«(0)  THEN 
K 32131  REM  END  OF  TABLE  IS 

REACHED 
CF32140  IF  PEEK(LOCATION)  =0 

THEN  GOTO  32300 
1132150  REM  IF  CHARACTER  IS 

NOT 
Cn  32151  REM  INVERSE  THEN  GE 

T  NEXT  ONE 
]C  32152  REM  IF  INVERSE  THEN 

END 
NC  32153  REM  OF  NAME  IS  REAC 

HED  SO 
Al  32154  REM  DETERMINE  VARIA 

BLE  TYPE 
Bn32160  IF  PEEK(LOCATION)<l 

27  THEN  ?  CHR* (PEEK 

(LOCATION) ) } iGOTO  3 

22B0 
H«  32170  REM  IF  CHARACTER  IS 

Q  THEN 
FJ  32171  REM  TYPE  IS  ARRAY. 

SET 
LK  32172  REM  ARGUMENT  TO  CDU 

NT,  CALL 
DE  32173  REH  SUBROUTINE  TO  D 

ETERMINE 
10  32174  REM  VARIABLE  NAME. 

ADD  U    TO 
IF  32175  REM  NAME,  ADD  1  TO 

COUNT, 
CH  32176  REM  GET  NEXT  NAME 
JL32180  IF  PEEK(LOCATION)  <> 

168  THEN  32200 
«  32181  ?  "  ( " 
IH  32182  C0UNT<4>-CDUNT  tl)  :G 

OSUB  320801 VARNAME* 

(LEN (VARNAME*) +1)-" 

("iQOSUB  320601 COUN 

T(1)-C0UNT ( 1 )+liGOT 

0  32260 


PP  32190 

LD  32191 

in  32192 

DI  32195 

10  32196 

U 32197 

CL  32198 
HL  32200 

JP  32201 
CO  32202 


OE  32210 

FB  3221  1 
CB  32220 
DI  32230 
5P  32231 
LF  32232 
FK  32233 
FB  32234 
PE  32240 

CC  32250 

AB  32251 
NJ  32260 


ill  32270 

ff  32271 
]H  32280 
» 32290 

BA  32291 
EL  32292 

CB  32293 

EO  32300 


!>1  32330 
BL  32340 

BC  32350 
ND  32360 


REM  IF  CHAR  IS  a  TH 

EN 

REH  TYPE  IS  STRING. 

SET 
REM  ARGUMENT  TO  COU 
NT,  CALL 

REM  SUBROUTINE  TO  D 
ETERMINE 

REM  VARIABLE  NAME. 
ADD  3  TO 

REM  NAME,  ADD  1  TO 
COUNT, 

REM  GET  NEXT  NAME 
IF  PEEK (LOCATION) <> 
164  THEN  GOTO  32220 
7  "  *  " 

COUNT (4) "COUNT (0) sG 
OSUB  32080: VARNAME* 
(LEN (VARNAHE*) +1 ) =" 
«■*:  GOSUB  320601  COUN 
T(0)-=COUNT(0)+l!6OT 
0  32260 

REM  VARIABLE  TYPE  I 
S  SCALAR. 


REM  PRI 
AR 

?  CHR* ( 
N>-12a) 
REM  SET 
UAL  TO 
REM  OF 
BLES  FO 
REM  SO 
BROUTIN 
REM  TO 
W  NAME. 
REM  ADD 
SCALAR 
COUNT (4 
OSUB  32 
"COUNT < 
REM  SET 
TER  OF 
REM  NAM 


NT  NORMAL  CH 

PEEK (LOCATIO 

ARGUMENT  EO 
NUM 

SCALAR  VARIA 
UND 

FAR.   CALL  SU 
E 
DETERMINE  NE 

1  TO  NUMBER 
S 

)=C0UNT<2) sG 
080:COUNT (2) 
2)  +1 

LAST  CHARAC 

E  TO  INVERSE 


VARNAME* (LEN (VARNAM 

E*> ) "CHR* (ASC( VARNA 

ME* (LEN(VARNAM£«) > ) 

+128);?  :?  i GOSUB  3 

2040 

REM  END  OF  FOR-NEXT 

LOOP 
REM  FDR  NEXT  CHAR. 
NEXT  LOCATION 
REM  HOLD  LAST  PARTI 
AL  SCREEN 
REM  FOR  DISPLAY. 
REM  ADD  CHR*(0)   TO 
END  OF  NEW  NAME 
REM  NAME  TABLE  INDI 
CATING  END 
?  "END  OF  TABLE"!? 
iBOSUB  32041sVARNAH 
E* (LEN (VARNAME*) +1 ) 
-CHR»(0> 

REM  CHANGE  TABLE  AD 
DRESS 

POKE  131, INT(ADR(VA 
RNAME*) /256) :POKE  I 
30, ADR (VARNAME*) -IN 
T (ADR (VARNAME*) /256 
)  t2S6 
REM  DISPLAY  WARNING 

MESSAGE 
?  CHR«(125) ; ?  "NOW 
LISTING  TO  TAPE  OR 
DISK";?  "CHANGE  LIN 
E  323B0  IF  DESIRED. 


1132380  LIST  "DiXXXXXXXX. 

X", 0,31999 
HI  32390  END 


XX 
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Commodore  64 
Disk  Commander 


Disk  access  can  be  clumsy  on  the  Com- 
modore 64  because  it  has  no  special 
disk  commands  like  those  found  on  the 
Commodore  Plus/4,  16,  and  PET/CBM 
computers.  "Disk  Commander"  is  a 
powerful  new  utility  which  adds  the 
missing  commands,  plus  a  few  more.  It 
works  with  any  2541-compatible  disk 
drive.  Together  with  "TurboDisk" 
(COMPUTE!,  April  1985),  it  transforms 
your  64  into  a  much  faster  and  friend- 
lier computer. 


Because  the  Commodore  64  con- 
tains BASIC  2.0,  designed  primarily 
for  cassette  storage,  disk  access  is  a 
little  inconvenient.  For  instance,  you 
have  to  type  L0AD"$",8  and  LIST 
to  view  a  disk  directory — thereby 
wiping  out  a  resident  BASIC  pro- 
gram—or OPEN15,8,15,"S0:/!/e- 
name":  CLOSE  15  just  to  scratch  a 
file.  If  you  merely  want  to  check  the 
disk  drive  error  channel,  you  have 
to  write  a  short  BASIC  program. 
Other  disk  operations  are  equally 
awkward.  Quite  a  few  64  users  have 
pined  for  the  more  powerful  BASIC 
3.5  or  4.0  found  in  some  other  Com- 
modore computers.  Now  that  wish 
can  come  true. 

"Commodore  64  Disk  Com- 
mander" adds  18  commands  to 
BASIC  to  simplify  use  of  the  1541 
disk  drive.  Furthermore,  the  com- 
mands are  flexible  enough  to  be  in- 
cluded within  BASIC  programs,  and 


Michael  Kunkel 


some  of  the  commands  can't  be 
found  even  in  BASIC  4.0.  In  addi- 
tion. Disk  Commander  resides  in  the 
Random  Access  Memory  (RAM) 
hidden  beneath  the  Commodore 
64's  Read  Only  Memory  (ROM),  so 
it's  relatively  protected  from  inter- 
ference with  other  BASIC  and  ma- 
chine language  programs.  In  fact, 
nearly  all  of  the  commands  are  com- 
patible with  "TurboDisk,"  the  high- 
speed disk  loader  published  in  the 
April  1985  issue  of  COMPUTE!. 

Typing  The  Program 

Disk  Commander  is  easy  to  prepare. 
Type  it  in  Vkith  the  MLX  machine 
language  entry  program  found  else- 
where in  this  issue.  MLX  makes  it 
easier  to  type  machine  language 
programs  without  errors  because  it 
detects  most  typos  after  you  enter 
each  program  line.  (See  instructions 
in  the  MLX  article.) 

Before  using  MLX  to  enter  the 
data  for  Disk  Commander,  clear  the 
computer  by  turning  it  off,  then  on 
again.  Then  enter  the  following  line 
and  press  RETURN: 

POKE  44,20:POKE  5120,0:NEW 

Now  load  and  run  MLX.  Enter  these 
responses  to  the  prompts: 

starting  Address?  2049 
Ending  Address?    4760 

When  you're  done  typing,  MLX 
automatically  prompts  you  to  save 
the  program.  You  can  also  enter  the 


listing  in  multiple  sittings  by  follow- 
ing the  instructions  in  the  MLX  arti- 
cle. If  you  do  enter  the  listing  in 
more  than  one  sitting,  remember  to 
reset  the  computer  and  enter  the 
above  POKEs  and  NEW  each  time 
before  loading  the  MLX  program. 

Once  you've  saved  a  copy  of 
Disk  Commander,  load  and  run  it 
like  any  BASIC  program.  (The 
POKEs  are  not  necessary  to  run  the 
finished  program.)  It  will  copy  itself 
into  a  safe  place  in  memory  and 
then  delete  its  loader  program  from 
memory.  Once  Disk  Commander  is 
activated,  even  pressing  RUN/ 
STOP-RESTORE  for  a  warm-start 
reset  will  not  disable  it.  Disk  Com- 
mander can  be  turned  off  only  by  a 
cold-start  reset  (shutting  off  the 
computer  or  typing  SYS  64738). 

Command  Summary 

Following  is  a  list  of  the  new  com- 
mands added  by  Disk  Commander. 
Each  command  can  be  abbreviated 
as  shown  in  the  parentheses. 

DIRECTORY  (DI  SHIFT-R)  Calls 

up  a  disk  directory  without  erasing  a 
resident  BASIC  program. 
DISKST  (DI  SHIFT-S)  Prints  the 
error  message  from  the  disk  drive 
error  channel. 

DSAVE  "filename"  (D  SHIFT-S) 
Saves  a  BASIC  or  machine  language 
program  with  the  specified 
filename. 
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DLOAD  "filename"  (D  SHIFT-L) 

Loads  a  BASIC  or  machine  language 

program    with     the     specified 

filename, 

DVERIFY  "filename"  (D  SHIFT- V) 

Compares  the  program  specified  by 

the  filename  with  the  program  in 

memory. 

SCRATCH  "filename"  (S  SHIFT- 

C)  Deletes  the  specified  file  from  the 
disk.  First  it  asks,  ARE  YOU  SURE? 
If  you  respond  by  typing  YES  or  Y, 
the  file  is  scratched. 

RENAME  "oldfile"  TO  "newfile" 
(RE  SHIFT-N)  Changes  the  file- 
name from  oldfile  to  newfile. 
COPY  "filel"  TO  "file!"  (CO 
SHIFT-P)  Makes  a  copy  of  filel  as 
filel  on  the  same  disk.  However,  it 
does  not  allow  you  to  copy  a  file 
from  one  disk  to  another. 
COLLECT  (CO  SHIFT-L)  Validates 
the  disk  by  reconstructing  the  Block 
Allocation  Map  as  explained  in  the 
disk  drive  manual  (equivalent  to 
OPEN  15,8,15:  PR1NT#15,"V0:": 
CLOSE  15). 

HEADER  "diskname,lD"  (HE 
SHIFT-A)  Formats  a  disk  as  de- 
scribed in  the  disk  drive  manual. 
(HEADER  corresponds  to  the  disk 
NEW  command.)  The  disk  is  given 
the  title  diskname  for  directory  pur- 
poses, and  the  ID  should  be  a 
unique  two-character  combination. 
Any  files  currently  on  the  disk  will 
be  erased  when  this  command  is 
executed. 

DOPEN#x,"/j7e«ame"  (D  SHIFT- 
O)  Opens  a  fUe  to  the  disk  drive  as 
specified  by  x  and  the  filename.  The 
filename  can  also  specify  the  type  (P 
for  program,  S  for  sequential,  or  L 
and  the  record  length  for  relative 
files)  and  whether  the  file  is  being 
opened  for  reading  (R)  or  writing 
(W).  If  these  parameters  are  not 
specified,  certain  default  values  are 
assumed.  For  example,  D0PEN#1, 
"TEST"  opens  file  1  for  reading  if 
TEST  is  an  existing  sequential  or 
program  file,  and  for  both  reading 
and  writing  if  TEST  is  an  existing 
relative  file.  Examples:  DOPEN#l, 
"TEST,W"  opens  the  sequential  file 
TEST  for  writing.  D0PEN#1, 
"TEST,P,R"  opens  the  program  fUe 
TEST  for  reading.  DOPEN#l, 
"TEST,L20"  creates  a  relative  file 
with  the  filename  TEST  and  a  record 
length  of  20.  (When  using  the  abbre- 
viated form  of  the  command,  it  is 


not  necessary  to  type  the  #.   For 
example,  you  would  use  D  5HIFT-0 
1,"TEST".) 
KYVEHD#x/'filename"  (A  SHIFT- 

P)  Allows  you  to  add  data  to  an 
existing  sequential  file.  The  speci- 
fied file  X  is  opened  for  the  sequen- 
tial file  specified  by  filename.  Any 
data  written  to  file  x  will  be  added  at 
the  end  of  the  existing  sequential 
file.  Example:  APPEND#1,"TEST": 
PRINT#1,"NAME":  CLOSEl.  This 
command  is  only  for  sequential 
files;  it  cannot  be  used  to  append 
lines  to  a  program  file,  (When  using 
the  abbreviated  form  of  the  com- 
mand, it  is  not  necessary  to  type  the 
#.  For  example,  you  would  use  A 
SHlFT-P  1,"TEST".) 

RECORD#s:,y,2  (RE  SHIFT-C)  Se- 
lects record  y  and  character  z  in  the 
relative  file  currently  open  as  file  X. 
Examples:  RECORD#l,3  selects  the 
third  record  in  the  relative  file 
opened  as  file  1.  RECORD#l,3,5  se- 
lects the  fifth  character  in  the  third 
record.  (When  using  the  abbreviated 
form  of  the  command,  it  is  not  nec- 
essary to  type  the  #.  For  example, 
you  would  use  RE  SHIFT-C  1,3,5.) 
SEND  (S  SHIFT-E)  This  command 
has  the  same  effect  as  0PEN1,8,15: 
PRlNT#l,"sfnng":  CLOSEl,  Ex- 
ample: SEND'TO"  initializes  the 
disk  drive,  SEND  "M-R"+CHR$(3) 
+  CHR$(5)  reads  the  byte  at  loca- 
tion $0503  in  the  disk  drive's 
memory. 

BLOCKS  (B  SHIFT-L)  Displays  the 
number  of  free  blocks  remaining  on 
the  disk  without  calling  up  the  en- 
tire directory. 

PROTECT  "filename"  (PR  SHIFT- 
O)  Protects  the  specified  file  so  that 
it  cannot  be  scratched.  Protected 
files  are  denoted  on  the  disk  directo- 
ry with  a  less-than  sign  (<).  Even  a 
protected  file,  however,  can  be 
erased  by  reformatting  the  entire 
disk.  Also,  protected  program  files 
cannot  be  read  by  the  TurboDisk 
utility  from  the  April  issue.  Attempt- 
ing to  load  a  protected  program  with 
TurboDisk  results  in  a  ?FILE  NOT 
FOUND  ERROR. 

RELEASE  "filename'  (RE  SHIFT- 
L)  Unprotects  the  specified  file. 
TRANSPOSE  "filel"  WITH  "filel" 
(T  SHIFT-R)  Transposes  the  posi- 
tions of  two  files  in  the  disk  directo- 
ry, WITH  can  be  abbreviated  W 
SHIFT-I. 


Disk  Commander  is  extremely 
versatile.  In  addition  to  letting  you 
imbed  the  new  commands  in  your 
programs,  it  also  lets  you  use  them 
with  variables,  too.  For  instance,  in- 
stead of  typing  this: 

DOPEN#l,'7(7eM<jme" 
you  can  type  this: 

A  =  1:  A$ = "filenam^'-V  OPEN*  A,  A$ 

Together  with  TurboDisk,  or 
just  by  itself.  Disk  Commander 
greatly  enhances  the  power  of  your 
Commodore  64. 


Commodore  64  Disk 
Commander 

Please  refer  to  the  "MIX"  article  before 
entering  this  listing. 


2049 
2055 
2061 
2067 
2073 
2079 
2085 
2091 
2097 
2103 
2109 
2115 
2121 
2127 
2133 
2139 
214S 
2151 
2157 
2163 
2169 
2175 
2181 
2187 
2193 
2199 
2205 
2211 
2217 
2223 
2229 
2235 
2241 
2247 
2253 
2259 
2265 
2271 
2277 
2283 
2289 
2295 
2301 
2307 
2313 
2319 
2325 
2331 
2337 
2343 
2349 
2355 
2361 
2367 
2373 
2379 
2385 
2391 
2397 


:011,008 
1048,054 
il69,012 
:133,252 
!l77,251 
:249,230 
:169,233 
:133,252 
:169,008 
!l62,010 
:200,208 
:254,202 
:0ia,153 
:062,208 
:032,068 
:169,15B 
il33,252 
:169,160 
:233,161 
:158,133 
:252,169 
:160,133 
:004,132 
!016,007 
:232,208 
:055,133 
: 086, 03 6 
:063,20a 
1037,201 
:060,144 
!000,132 
:202,200 
!056,241 
: 201, 128 
:164,H3 
:001,185 
!056,233 
:073,208 
:233,085 
:189,000 
:  008, 240 
:001,232 
:230,011 
:016,,!50 
: 180, 076 
:002,016 
:19a, 123 
1096,165 
s235,169 
:164,133 
:253,169 
: 000, 076 
:163,076 
: 201, 255 
1048,240 
1132,073 
:176,022 
sia5,158 
:245,200 


,010,000, 
,049,000, 
,133,251, 
,162,002-, 
,145,251, 
,252,202, 
,133,251, 
,169,091, 
,133,254, 
,177,253, 
,249,230, 
,206,242, 
,184,002, 
,245,032, 
,166,076, 
,133,251, 
,169,157, 
,133,254, 
,076,022, 
,251,169, 
,157,133, 
,254,166, 
,015,189, 
,201,255, 
,216,201, 
,008,201, 
,015,112, 
,004,169, 
,048,144, 
,029,132, 
,011,136, 
,232,189, 
,251,234, 
,208,048, 
,232,200, 
,251,001, 
,058,240, 
,002,133, 
,208,131, 
,002,240, 
,219,200, 
,208,240, 
,200,177, 
,177,251, 
,170,162, 
,187,153, 
,169,255, 
,251,201, 
,000,133, 
,252,169, 
,163,133, 
,076.162, 
,109,163, 
,240,244, 
,056,233, 
,160,255, 
,202,240, 
,160,016, 
,185,158, 


158,050 
000,000 
169,160 
160,000 
200,208 
208,244 
169,161 
133,253 
160,000 
145,251 
252,230 
185,091 
200,192 
184,002 
116,164 
169,160 
133,253 
096,032 
162,169 
160,133 
253,169 
122,160 
000,002 
240,062 
032,240 
034,240 
045,201 
153,208 
004,201 
113,160 
134,122 
000,002 
240,245 
005,011 
153,251 
240,057 
004,201 
015,056 
133,008 
223,197 
153,251 
166,122 
253,234 
234,208 
189,000 
253,001 
133,122 
158,208 
251,169 
255,133 
254,160 
076,096 
016,248 
036,015 
127,170 
224,077 
008,200 
250,048 
160,048 


,238 
,158 
,139 
,216 
,233 
,136 
,129 
,050 
,005 
,029 
,150 
,225 
,054 
,044 
,195 
,107 
,170 
,179 
,164 
,095 
,230 
,098 
,219 
,152 
,250 
,054 
,140 
,200 
,036 
,045 
,204 
,244 
,180 
,032 
,038 
,178 
,241 
,198 
,003 
,062 
,03  2 
,192 
,078 
,115 
,018 
,115 
,253 
,082 
,222 
,121 
,153 
,025 
,064 
,030 
,175 
,228 
,161 
,136 
,065 


September  1 985     COMPUTEI      81 


2403 
2409 
2415 
2421 
2427 
2433 
2439 
2445 
2451 
2457 
2463 
2469 
2475 
2461 
2487 
2493 
2499 
2505 
2511 
2517 
2523 
2529 
2535 
2541 
2547 
2553 
2SS9 
2565 
2571 
2577 
2583 
25S9 
2595 
2601 
2637 
2613 
2619 
2625 
2631 
2637 
2643 
2649 
2655 
2661 
2667 
2673 
2679 
2685 
2691 
2697 
2703 
2709 
2715 
2721 
2727 
2733 
2739 
2745 
2751 
2757 
2763 
2769 
2775 
2781 
2787 
2793 
2799 
2805 
2811 
2817 
2823 
2829 
2835 
2841 
2847 
2853 
2859 
2865 
2871 
2877 
2883 
2889 
2895 
2931 
2907 
2913 
2919 
2925 


:214,032 
1056,233 
: 008 , 200 
:250,048 
: 164, 048 
: 203,245 
:026,163 
:062,233 
:035,176 
:013,160 
1072,076 
:168,201 
:086,168 
:076,067 
:086,168 
:233,075 
:163,072 
1075,115 
1065,068 
:133,247 
:104,076 
:239,133 
:24a, 104 

!000,S00 

!l65,123 
il65,197 
!l66,224 
:166,105 
:167,05S 
:169,153 
:16e,095 
:091,229 
:240,035 
!034,133 
: 091, 056 
1133,088 
: 144, 004 
:136,208 
:088,19a 
:208,242 
:176,053 
:034,144 
sl44,040 
!l44,034 
!072,181 
:032,068 
:084,079 
:083,075 
:065,086 
:082,073 
:079,065 
1065,084 
: 078,065 
:0e0,217 
:069,067 
1068,069 
1069,073 
: 069, 078 
! 067, 079 
!069,078 
!067,075 
: 084, 069 
1076,069 
: 082, 065 
:083,197 

: 000, 000 

!l21,165 
!l66,144 
!095,133 
1034,165 
! 095, 136 
!045,133 
: 046, 105 
:096,170 
1045,168 
1037,024 
:19e,035 
:03e,200 
:230,037 
:089,166 
:000,002 
!045,J33 
:088,164 
: 001, 200 
!l63,165 
:254,001 
: 049, 164 


,000 

,168 

,208 

,245, 

,076 

,170 

,202 

,240, 

,185 

,000 

,164 

,016, 

,245 

,200 

,185 

,000, 

,188 

,032 

,000 

,168, 

,032 

.115 

,000 

,032, 

,076 

,015 

,168 

,240, 

,128 

,144 

,017 

,201, 

,023 

,010 

,168 

,185, 

,072 

,185 

,012 

,160, 

,028 

,168 

,076 

,048, 

,058 

,240 

,217 

,076, 

,201 

,075 

,208 

,003, 

,168 

,176 

,003 

,076, 

,201 

,095 

,176 

,249, 

,010 

,168 

,185 

,129, 

,185 

,128 

,163 

,072, 

,000 

,096 

,082 

,069, 

,089 

,072 

,169 

,243, 

,169 

,166 

,133 

,248, 

,193 

,002 

,072 

,169, 

,247 

,169 

,166 

,133, 

,076 

,193 

,002 

,000, 

,000 

,000 

,000 

,000, 

,165 

,180 

,165 

,194, 

,165 

,247 

,165 

,216, 

,166 

,232 

,166 

,250, 

,167 

,198 

,167 

,211, 

,169 

,070 

169 

140, 

,169 

,081 

170 

085, 

,133 

,034 

168 

165, 

,096 

,170 

232 

152, 

,165 

,090 

056 

229, 

,090 

,176 

003 

198, 

,165 

,088 

229 

034, 

,176 

,008 

198 

089, 

,177 

,090 

145 

086, 

,249 

,177 

090 

145, 

,091 

,198 

089 

202, 

,096 

,010 

105 

062, 

,133 

034 

186 

228, 

,046 

096 

196 

052, 

,208 

004 

197 

051, 

,072 

162 

009 

152, 

,087 

202 

016 

250, 

,073 

082 

069 

067, 

,082 

217 

068 

073, 

,083 

212 

068 

083, 

,197 

068 

086 

069, 

,070 

217 

068 

076, 

,196 

083 

067. 

082, 

,067 

200 

382 

069, 

,077 

197 

067, 

079, 

,067 

079 

076, 

076, 

,212 

072 

069, 

065, 

,210 

068 

079, 

080, 

,163 

065 

080, 

080, 

,068 

163 

082. 

069, 

,082 

068 

163. 

083, 

,196 

066 

076, 

079, 

,211 

080 

082, 

079, 

,367 

212 

062, 

069, 

,065 

083 

197, 

084, 

,078 

083 

080, 

079, 

,087 

073 

084, 

200, 

,000 

000 

000. 

000. 

,000 

107 

169, 

032, 

,132 

011 

032, 

019, 

,068 

160 

001, 

177, 

,035 

165, 

045, 

133, 

.096 

133 

037, 

165, 

,241 

095, 

024, 

101, 

,045 

133 

036, 

165, 

,2BS 

133 

046, 

229, 

,056, 

165 

095, 

229, 

,176 

003 

232. 

198, 

,101. 

034 

144, 

303, 

,024, 

177 

034, 

145, 

,208 

249 

230, 

035, 

,202 

208 

242, 

032, 

,032 

051 

165, 

173, 

,240 

136 

024. 

165, 

,090 

101 

011, 

133, 

,046 

132 

091, 

144, 

,132 

089 

032, 

184, 

,020 

164 

021, 

141, 

,140 

255 

001, 

165, 

,050 

133 

045. 

036, 

198 

2931 

058 

2937 

172 

2943 

021 

2949 

211 

2955 

249 

2961 

055 

2967 

158 

2973 

232 

2979 

243 

2985 

115 

2991 

101 

2997 

144 

3003 

231 

3009 

134 

3015 

221 

3021 

210 

3027 

127 

3033 

145 

3039 

029 

3045 

067 

3051 

032 

3057 

0B6 

3063 

237 

3069 

211 

3075 

124 

3081 

179 

3087 

251 

3093 

013 

3099 

076 

3105 

018 

3111 

231 

3117 

082 

3123 

163 

3129 

198 

3135 

233 

3141 

195 

3147 

046 

3153 

169 

3159 

032 

3165 

125 

3171 

145 

3177 

227 

3183 

162 

3189 

147 

3195 

246 

3201 

210 

3207 

217 

3213 

190 

3219 

211 

3225 

203 

3231 

204 

3237 

206 

3243 

244 

3249 

209 

3255 

235 

3261 

202 

3267 

202 

3273 

221 

3279 

249 

3265 

029 

3291 

024 

3297 

021 

3303 

176 

3309 

183 

3315 

233 

3321 

035 

3327 

213 

3333 

199 

3  339 

095 

3345 

125 

3351 

193 

3357 

064 

3363 

071 

3369 

074 

3375 

091 

3361 

130 

33B7 

150 

3393 

245 

3399 

244 

3405 

231 

3411 

128 

3417 

080 

3423 

238 

3429 

217 

3435 

003 

3441 

151 

3447 

074 

3453 

: 169. 001, 162, 000, 160, 165,  004 
: 032, 189, 25 5, 169, 001, 162, 161 

1008.160.096.032.186.2  55,096 
: 032, 192, 255, 162, 001, 032, 039 
! 198,255, 169, 000, 133, 144,014 
: 162, 005, 032, 207, 255, 164, 202 
! 144 , 208 , 056 , 202 , 206 , 246 , 191 
: 133, 25 1,032, 207, 25 5, 164, 175 
1144,208,044,166,251,032,240 
: 097, 168, 169, 032, 032, 210, 109 
1255,332,207,255,164,144,206 
I  208 , 027 , 170 , 240 , 006 ,03  2 , 096 
! 210, 255, 076, 062, 165, 169, 100 
: 013, 032, 210, 255, 032, 237, 204 
1246,240,005,162,003,076,163 

1033.165.076.112.168.03  2,023 
! 204, 255, 169, 001, 076, 195, 087 
: 255, 162, 000, 189, 118, 165,082 
:  157,  004, 003,  232,  224,  006,  081 
: 208 , 245 ,096 , 219 , 002 ,234,209 
! 002 , 240 ,802 , 169 , 008 , 032 , 176 
1180,255,169,111,032,150,114 
! 2 55, 032, 165, 2 55, 032, 210, 172 
: 255, 201, 01 3, 203, 246, 076, 228 
s 171, 255, 169, 000, 032, 189, 051 
1255,162,008,160,001,169,252 
1221,141,208,002,169,225,213 
: 141, 209, 002, 032, 199, 002, 094 
; 186, 169, 169, 157, 003, 001, 200 
! 169, 167, 157, 004, 001, 096, 11 5 
1032,147,165,169,089,13  3,006 
!247, 169, 225, 133, 248, 076, 119 
: 193,002, 169, 001, 044, 169, 11 7 
:000, 133, 010, 032, 147, 165, 032 
: 169, 111, 133, 247, 169, 225, 093 
;133, 243, 076, 193, 002, 165, 118 
:  251, 203, 003, 076, 066, 168, 099 
:  169, 008, 032, 177, 255, 169, 12 3 
8  111,032,147,25  5,160,000,024 
:  177, 25 2, 032, 168, 255, 200, 153 
: 196, 251, 208, 246, 376, 174, 226 
:  255, 032, 129, 168, 032, 047, 000 
t 166, 169, 083, 141, 000, 190, 092 
! 169, 058, 141, 001, 190, 160, 068 
:000, 177, 098, 15 3, 002, 190, 231 
5  200,196,097, 208, 246, 169, 221 
: 000, 133, 2 52, 169, 190, 133,  244 
! 253, 200, 200, 132, 25 1,032, 185 
: 223, 165, 165, 157, 016, 01 2, 117 
: 169, 013, 032, 210, 255, 376, 140 
8  124,165,165, 157, 046, 001, 051 
8  096, 160, 000, 185, 11 3, 166, 117 
8032,210,255,200,192,014,050 
8  208,245,03  2,204,255,032,129 
8  207,255,201,089,208,02  5,144 
8032,207,255,201,013,240,113 
8  225,201,069,208,014,032,176 
8  207,255,231,083,208,007,138 
1032,207,255,201,013,240,131 
8  207,201,013,240,006,032,144 
8207,2  55,208,247,096,104,056 
8 104 ,096 , 065 , 082 , 069 , 032 , 161 
8089,079, 035, 032, 063, 085, 17  2 
8032,069,063,032,032,129,132 
8 16C,  160,000,177,093,153,231 
8000,191,200,196,097,144,053 
8  246,132,250,160,000,177,196 
!  1 2 2  ,  201 ,  164  ,  240  ,  003  ,  076  , 043 

8  086,168,032,115,000,032,188 
8  129,168,160,000,177,098,237 
1153,002,190,200,196,097,093 
8  144,246,169,061,153,302,036 
8  190,200,200,200,132,252,185 
8  169,190,133,253,160,000,17  6 
8  185,000,191,145,252,200,2  52 
8  196,250,144,246,152,024,041 
8  101,252,133,251,169,000,197 
8  133,252,169,058.141,001,051 
si 90, 076, 223, 165, 169, 082,203 
8  141,000,190,076,127,166,009 
1169,067,141,000,190,076,214 
8  127,166,169,006,032,177,000 
1255,169,111,032,147,255,040 
1169,086,032,168,255,076,119 
8  174,255,032,129,168,032,129 
8  047,166,169,076,141,000,202 
8  190,169,058,141,001,190,100 
8160,000,177,098,153,002,203 


3459  8 190 , 200 , 1 96 , 097 , 208 , 246 , 244 

3465  8  169,000,133,252,169,190,026 

3471  8  133,2  53,200,200,132,251,032 

3477  1032,223,165,16  5,157,016,139 

3483  8  008,169,013,032.210,255,074 

3489  8  076,124,165,096,032,152,033 

3495  8  168,160,000,177,122,201,227 

3501  8044,240,003,076,086,166,022 

3507  8  134,184,032,165,168,16  5,003 

3513  8  097,133,183,169,000,133,132 

3519  8  187,169,190,133,188,160,194 

3525  8  000,177,098,145,187,200,236 

3531  8  196,133,208,247,169,044,226 

3537  8  145,187,200,169,083,145,114 

3543  8  187,200,13  2,183,096,032,021 

3549  8051,167,032,121,000,201,025 

3555  8  044,208,076,332,115,000,190 

3561  : 201, 087, 208, 040, 169, 044, 21 4 

3567  8  145,187,200,169,087,145,148 

3573  8  187,200,132,183,032,115,070 

3579  8  000,169,008,133,186,160,139 

3  585  8  097,200,15  2,166,152,202,202 

3591  8  048,007,221,045,006,240,062 

3597  8  244,208,246,13  2,185,076,080 

3603  8  192,255,201,076,208,194,121 

3609  8032,171,163,169,076,164,037 

3615  8  183,136,145,187,200,169,027 

3621  8044,145,187,200,138,145,128 

3627  8  187,200,132,183,076,138,191 

363  3  8  167,198,183,198,183,076,030 

3639  8  138,167,032,051,167,169,011 

3645  8  044,145,187,200,169,065,103 

3651  8  076,184,167,032,152,168,078 

3657  8032,121 ,000,201 ,044,240,199 

3663  5  003 , 076 , 086 ,168, 134, 251, 029 

3669  8032,177,166,169,001,13  3,253 

3675  8  2  52,032,121,000.201,044,229 

3681  8  208,005,032,171 , 168, 134,047 

3687  8  252,076,000, 169, 300, 000, 068 

3693  8  000 , 000 , 000 , 000 , 000, 07  2 , 181 

3699  8  169,071,141,208,002,169,107 

3  705  8  171,141,209,002,104,076,056 

3711  8  199,002,072,169,174,133,108 

3717  8  247,169,167,133,248,104,177 

3723  8  076,193,002,186,169,23  3,230 

3729  : 157, 003, 001, 169, 167, 157, 031 

3735  8  004,001,169,000,072,169,054 

3741  8  114,072,076,225,002,104,233 

3747  8  104,169,167,072,169,2  33,053 

3753  8  072,169,16  5,133,247,169,100 

3759  8  169,133,248,076,193,302,228 

3765  8  104,104,169,167,072,169,198 

3771  8  233,072,169,018,133,247,03  5 

3777  8169,168,133,248,076,193,156 

3783  8  002,169,008,133,247,169,159 

3789  8  175,13  3,248,076,193,002,006 

3795  8  072,169,205,141,208,002,240 

3801  :  169, 189, 141 ,209,002,104,007 

3807  8076,199,002,169,052,133,086 

3813  8  247,169,168,133,248,169,083 

3819  8  001,032,195,25  5,056,076,082 

3825  8  193,032,169,156,141,208,088 

3831  8  002,169, 173,141,209,002, 175 

383  7  8  03  2,199,002,072,169,143,102 

3843  8  141,238,002,104,076,221,243 

3849  8  168.169,158,141,208,002,087 

3855  8  169,183,141,209,002,076,027 

3661  8  199,002,032,115,000,076,139 

3867  8  129,168,032,115,000,076,035 

3873  8  152,168,032,115,030,169,157 

3879  8  138,141,208,302,169,173,102 

3835  8  141,209,002,03  2,199,002,118 

3891  8  072,169,247,141,208,002,122 

3897  : 169 , 183 , 141 , 209 , 002 , 104 , 097 

3903  8  076,199,002,169,055,133,185 

3909  8  247,169,164,13  3,246,162,168 

391 S  8  003,076,193,002,032,199,068 

3921  1002,072,169,163,141,208,068 

3927  8  032,169,162,141,209,002,024 

3933  8  104,032,199,002,133,097,148 

3939  8  134,098,132,099,096,000,146 

3945  8  000 , 000 , 01 6 , 000 , 000 , 000 ,121 

3951  8  000,255,000,165,251,166,180 

3957  8  152,202,016,003,076,208,006 

3963  8  168,221,089,002,208,245,032 

3969  8  189,109,002,141,001,190,249 

3975  8  169,080,141,000,190,165,1^2 

3981  8  020,141,002,190,165,021,168 
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3987  : 141, 003, 190, 165, 2 52, 141, 01 5 

3993  ! 004, 190, 169, 005,1 33, 25 1,137 

3999  ! 169,000, 133,252,169,190,048 

4005  : 13 3, 253, 076, 22 3, 165, 032, 023 

4011  ! 129, 168, 162, 003, 181, 096, 142 

4017  : 149, 250, 202, 208, 249, 076, 031 

4023  :  223 ,165, 169, 07 3, 141, 000, 186 

4029  :  190, 169, 001, 032, 043, 169, 025 

4035  :  162,  000, 189,  135, 169, 157,  239 

4041  :00a, 190, 2 32, 224, 006, 208, 037 

4047  1245,169,006,03  2,343,169,103 

405  3  ! 169, 008, 032, 100, 2 5 5, 169, 002 

4059  : 111, 0  32, 150, 255, 169, 01 3, 181 

4065  : 032, 210, 255, 03 2, 165, 255, 150 

4071  : 170, 032, 165, 255, 032, 165, 026 

4077  : 25 5, 032, 097, 168, 03 2, 171, 224 

4083  : 255, 169, 013, 076, 210, 255, 197 

4089  1077, 045, 082, 250, 002, 003, 196 

4095  1169,009,141,048,170,169,193 

4101  :a64, 141, 049, 170, 076, 164, 157 

4107  :  169, 169, 041, 141, 348, 170, 23 7 

4113  :  169, 191, 141,  049, 170,  032,  001 

4119  1061,173,169,002,162,008,083 

4125  1160,173,032,189,255,162,229 

4131  : 006,160,002,032,186,255,166 

4137  1032,192,25  5,162,000,189,103 

4143  : 010, 170, 157, 000, 190, 2 32, 038 

4149  : 224 , 008 , 208 , 245 , 134 , 251 , 099 

4155  : 032, 045, 169, 162, 002, 032, 245 

4161  : 201, 2 5 5, 162, 000, 189, 018, 122 

4167  : 170,032, 210, 255, 232, 224, 170 

4173  : 043, 208, 245, 03 2, 204, 255, 040 

4179  !032, 129, 168, 160,000, 177,2  37 

4185  1098,153,003,190,200,196,161 

4191  : 097, 208, 246, 152, 024, 105, 159 

4197  1003,133,251,169,085,141,115 

4203  1000,190,169, 051, 141, 001, 147 

4209  : 190, 169, 058, 141, 002, 190, 095 

4215  : 076, 074, 170,035,050,066,073 

4221  :045, 080, 032, 050, 03 2, 048, 156 

4227  ;013, 032, 238, 193, 032, 152, 023 

4233  : 195, 032, 03 2, 195, 032, 202, 057 

4239  1195,169,000,133,134,032,038 


4245 
4251 
4257 
4263 
4269 
4275 
4281 
4287 
4293 
4299 
4305 
4311 
4317 
4323 
4329 
4335 
4341 
4347 
4353 
4359 
4365 
4371 
4377 
4383 
4389 
4395 
4401 
4407 
4413 
4419 
4425 
4431 
4437 
4443 
4449 
4455 
4461 
4467 
4473 
4479 
4485 
4491 
4497 


:157 
:221 
1 148 
:187 
t0a7 
:073 
:076 
:169 
:061 
:160 
:008 
:032 
:010 
I  224 
1032 
i201 
:171 
:1B9 
:032 
:098 
:097 
:003 
r000 
il90 
:032 
:201 
:168 
j168 
:003 
:246 
:251 
:169 
:058 
:170 
:085 
:141 
:032 
:ia0 
:255 
:23e 
:048 
:238 
:055 


196,048 
144,014 
009,064 
.200,076 
217,032 
141,000 
043,169 
002,076 
170,169 
170,032 
.160,002 
,192,255 
.170,157 
.008,208 
,045,169 
.255,162 
,032,210 
,208,245 
,129,168 
,153,003 
,238,246 
,133,251 
,190, 169 
,169,058 
,251,170 
,222,240 
,032,115 
,160,000 
,190,200 
,152,024 
,169,085 
,053,141 
,141,002 
,169,002 
,141,000 
,001,190 
,045,169 
,255,169 
,032,165 
,005,032 
,008,032 
,001,096 
,133,247 


,016, 
,160, 

,145, 
,225, 
,231, 
,190, 
,032, 
,195, 
,002, 
,189, 
,032, 
,162, 
,000, 
,245, 
,162, 
,000, 
,255, 
,032, 
,160, 
,190, 
,152, 
,169, 
.-052, 
,141, 
,032, 
,003, 
,000, 
,177, 
,196, 
,105, 
,141, 
,031, 
,190, 
,133, 
,190, 
,076, 
,169, 
,111, 
,255, 
,165, 
,171, 
,162, 
,169, 


032,183,013 
000,177,103 
148,076,239 
202,076,109 
255,169,140 
169,301,241 
045,169,207 
255,032,152 
162,008,001 
255,162,147 
186,255,084 
000,189,021 
190,232,212 
134,251,017 
002,332,163 
189,041,063 
232,224,089 
204,255,074 
000,177,155 
200,196,079 
024,105,077 
085,141,033 
141:00]  ,066 
002,190,013 
121,000,131 
076,086,103 
032,129,013 
098,153,043 
097,208,187 
003,133,218 
000,190,141 
190,169,034 
032,251,247 
251.169,217 
169,051,221 
074,170,243 
008,032,052 
032,150,244 
201,048,053 
255,201,225 
255,040,175 
004,169,011 
164,133,022 


4503  I  248 , 076 , 1 93 , 302 , 076 , 069, 047 

4509  : 005, 160, 000, 044, 160, 033, 047 

4515  : 140, 176, 005, 032, 238, 193, 179 

4521  :a32, 152, 195, 032, 032, 195, 039 

4527  : 032, 202, 195, 032, 157, 196, 221 

45  33  !016, 003, 076, 225, 202, 165, 100 

4539  : 148, 174, 176, 005, 157, 177, 000 

4545  : 035, 165, 149, 010, 168, 185, 107 

4  551  : 000, 000, 157, 178, 005, 185, 212 

4557  1001,000,157,179,005,160,195 

4563  : 000, 177, 148, 157, 180, 005,110 

4569  =232,200,192,030,208,245,044 

4575  : 096, 173, 178, 005, 133, 006, 346 

4581  =173, 179, 005, 133, 007, 169, 127 

4587  : 128, 133, 000, 162, 000, 032, 178 

4593  : 153, 21 3, 160, 036, 174, 177, 130 

4599  : 005, 185,177,005,157,000,008 

4605  : 003, 23 2, 200, 192, 066, 208, 130 

4611  : 244, 169, 144, 133, 000, 162, 087 

4617  : 000, 03 2, 15 3, 21 3, 173, 21 1,02 3 

4623  ; 005, 133, 006, 173, 212, 005, 037 

4629  : 133, 007, 169, 128, 13 3,000, 079 

4635  ! 162, 000, 0  32, 15 3, 2 13, 160, 235 

4641  : 003, 174, 210, 005, 185, 177, 019 

4647  : 005, 157, 000, 003, 2 32, 200, 124 

4653  : 192, 03 3, 208, 244, 169, 144, 011 

4659  : 133, 000, 162, 000, 076, 153, 063 

4665  :  213,  239,  255,  25  5, '255,  25  5,  249 

4671  1255,255,255,255,255,255,057 

4677  :  25 5, 25 5, 255, 25 5, 255, 255, 063 

4683  : 255, 255, 255, 255, 25 5, 255, 069 

4689  ;25  5 ,000,000,000 ,030,000,080 

4695  : 000 , 000 , 000 , 000 ,032,210,073 

4701  s 002, 032, 104, 165, 076, 225, 185 

4707  1002,032,225,032,108,247,203 

4713  : 000, 072, 16 5, 001, 009, 001, 097 

4719  : 133, 001, 104, 032, 205, 189, 307 

4725  :  072, 165, 001, 041, 254, 133, 015 

4731  : 001, 104, 096, 032, 2 10, 002, 056 

47  37  ! 032, 000, 162, 072, 165, 001, 049 

4743  : 009, 001, 133, 001, 104, 096, 223 

4749  : 032, 210, 002, 076, 203, 162, 058 

4755  1032,210,002,076,017,163,135 


Computers  Anonymous 

Inven'tory 


Commodore-ready  data  cassette  player/ 
recorders.  6-month  warranty  Brand 
new,  fully  shielded  &  FCC-approved,  (no 
software  bundle  included) 
Send  $14.95,  plus  $3  for  shipping  & 
handling  to: 


Data  Cassettes 
Computers  Anonymous 

Box  8838 
Wichita,  KS  67208-0838 


Get 

■MORE 

For  Your  64! 


Now  you  can  free  up  61K  of  RAM  memory 

in  your  Commodore  641  CARDCO's 
S'MORE  Basic  expands  the  C-64's  available 
memory  from  39K  to  61K,  and  adds 
powerful  programming  features  including... 

•  60+  new  &  enhanced  commands, 
structured  like  the  new  C-128's  Basic  7.0 

•  Full  error  trapping 

•  No  peeks  or  pokes 

•  Full  command  selection  &  up-down 
scrolling 

At  $69.96  suggested  retail,  you'll  want  to  get 
S'MORE  for  your  64! 


cardco,  inc. 

300  S.  Topeka 
Wichita,  KS  67202 
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Apple  Fractals 


Fractals  are  receiving  a  great  deal  of 
attention  in  mathematics  and  com- 
puter graphics  these  days.  They're  be- 
ing used  for  everything  from 
simulating  random  plant  growth  to 
generating  realistic  planetary  land- 
scapes for  science-fiction  films.  This 
article  introduces  the  fascinating 
world  of  fractals  with  three  programs 
that  demonstrate  a  particular  type  of 
fractal  that  can  be  plotted  on  a  person 
al  computer. 


The  word  fractal  was  coined  by  Be- 
noit  Mandelbrot,  a  pioneer  in  their 
study,  to  denote  curves  or  surfaces 
having  fractional  dimension.  The 
concept  of  fractional  dimension  can 
be  illustrated  as  follows:  A  straight 
curve  (a  line)  is  one-dimensional, 
having  only  length.  However,  if  the 
curve  is  infinitely  long  and  curves 
about  in  such  a  manner  as  to  com- 
pletely fill  an  area  of  the  plane  con- 
taining it,  the  curve  could  be 
considered  two-dimensional.  A 
curve  partially  filling  an  area  would 
have  a  fractional  dimension  be- 
tween one  and  two. 

Many  types  of  fractals  are  self- 
similar,  which  means  that  all  por- 
tions of  the  fractal  resemble  each 
other.  Self-similarity  occurs  when- 
ever the  whole  is  an  expansion  of 
some  basic  building  block.  In  the 
language  of  fractals,  this  basic  build- 
ing block  is  called  the  generator.  The 
generator  in  the  accompanying  pro- 
grams consists  of  a  number  of  con- 
nected line  segments.  The  curves 
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that  the  programs  plot  are  the  result 
of  starting  with  the  generator  and 
then  repeatedly  replacing  each  line 
segment  with  the  whole  generator 
according  to  a  defined  rule.  Theoret- 
ically, these  replacement  cycles 
would  continue  indefinitely.  In 
practice,  the  screen  resolution  limits 
the  number  of  cycles. 

The  programs  illustrate  two 
types  of  fractal  curves.  The  curves 
generated  by  Program  1  and  Pro- 
gram 2  are  self-contacting,  while  the 
curve  generated  by  Program  3  is 
self-avoiding.  A  self-contacting 
curve  touches  itself  but  does  not 
cross  itself,  A  self-avoiding  curve 
never  actually  touches  itself  al- 
though it  may  appear  to  because  of 
the  limited  screen  resolution. 

The  Dragon  Sweep 

Program  1  plots  what  Mandelbrot 
refers  to  as  a  "dragon  sweep."  It 
demonstrates  in  a  step-by-step 
fashion  how  a  fractal  curve  is  filled. 
The  generator  consists  of  two-line 
segments  of  equal  length  forming  a 
right  angle.  During  each  replace- 
ment cycle,  the  generator  is  substi- 
tuted for  each  segment  on  alternat- 
ing sides  of  the  segments,  that  is,  to 
the  left  of  the  first  segment,  to  the 
right  of  the  second  segment,  and  so 
on.  Figure  1  shows  the  first  few 
cycles  of  substitution.  The  program 
is  written  in  BASIC  so  the  plotting 
is  slow  enough  to  let  you  observe 
the  development  of  the  curve. 

The  program  prompts  you  to 
enter  an  even  number  of  cycles  (for 


reasons  of  efficiency  and  screen  res- 
olution, only  even  numbers  of  cy- 
cles are  plotted).  When  a  plot  is 
complete,  pressing  any  key  clears 
the  screen  and  returns  you  to  the 
prompt.  I  recommend  starting  with 
two  cycles,  then  four,  six,  etc.  It 
takes  fourteen  cycles  to  completely 
fill  in  the  "dragon,"  but  since  this 
requires  almost  two  hours,  you  will 
probably  want  to  quit  after  about 
ten  cycles.  You  can  see  the  com- 
plete dragon  by  running  Program  2, 
which  always  plots  the  dragon  first 
in  less  than  30  seconds. 

Since  it's  not  at  all  obvious  how 
the  program  works,  here's  a  brief 
explanation.  NC  is  the  number  of 
cycles;  C  is  the  cycle  number;  SN  is 
an  array  of  segment  numbers  in- 
dexed by  cycle  number;  L  is  the 
segment  length;  D  is  the  segment 
direction,  numbered  clockwise  from 
the  positive  x  direction;  and  X  and  Y 
are  the  high-resolution  screen 
coordinates. 


140 


Lines  100- 
Line    ISO 

Line    160 
Line    170 


Lines  180-220 


Lines  230-260 


Get  number  of  cycles 
from  user. 
Computes  segment 
length. 

Sets  starting  coordinates. 
Sets  segment  numbers 
for  all  cycles  to  the  first 
segment. 

Find  the  direction  of  the 
segment  in  the  last  cycle 
by  rotating  the  segment 
in  each  cycle  that  will 
contain  the  segment  in 
the  last  cycle. 
Increase  or  decrease  X  or 
Y  by  the  segment  length, 
depending  on  the  seg- 
ment direction. 
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Lines  270-290  Plot  the  segment  and  up- 
date the  current  segment 
number  for  each  cycle. 

Lines  300-320        If  the  segment  number 

for  cycle  zero  is  still  zero, 
do  the  next  segment; 
otherwise,  we're  done. 

Eight  Thousand  Dragons 

Program  2  plots  more  than  8,000 
different  dragons.  It  does  this  by 
randomly  determining  on  which 
side  of  the  first  segment  the  genera- 
tor will  be  substituted  for  all  cycles 
after  the  first  cycle.  The  generator  is 
always  substituted  to  the  left  of  the 
first  segment  in  the  first  cycle  to 
avoid  plotting  off  the  screen.  Other 
than  the  randomization,  this  pro- 
gram uses  the  same  logic  as  Program 
1.  The  main  part  of  this  program  is 
written  in  machine  language  to  re- 
duce the  time  required  to  plot  a  com- 
pletely filled-in  dragon  from  about 
two  hours  to  less  than  half  a  minute. 

All  the  dragons  are  plotted  after 
fourteen  cycles  of  substitution.  All 
have  exactly  the  same  area,  which 
equals  half  of  the  square  of  the  dis- 
tance between  the  first  and  last 
points  plotted.  All  the  dragons  begin 
and  end  at  the  same  points. 

When  a  plot  is  complete,  press 
the  space  bar  to  plot  another  dragon, 
or  press  the  Q  key  to  quit. 

Snowflakes 

Program  3  plots  what  Mandelbrot 
refers  to  as  a  "snowflake  sweep." 
The  generator,  shown  in  Figure  2, 
was  discovered  by  Mandelbrot.  The 
segments  are  numbered  zero 
through  six,  starting  at  the  right.  The 
program  is  basically  the  same  as 
Program  1.  The  variables  NC,  C, 
SN,  D,  X,  and  Y  represent  the  same 
values  except  that  the  direction  D  is 
numbered  counterclockwise  from 
the  negative  x  direction.  For  each 
segment,  the  accompanying  table 
gives  the  value  of  RD  (relative  direc- 
tion), LN  (length  factor),  and  SD 
(flags  indicating  which  side  of  the 
segment  the  generator  is  to  be 
placed). 

Line    20  Reads  values  of  SD  and 

RD.  Compute  LN  values. 

Lines  30-50         Compute  delta  x  and  delta 
y  factors  for  each  direction. 

Lines  60-100       Get  number  of  cycles 
from  user. 

Line    120  Sets  starting  coordinates. 

Line   130  Sets  the  segment  num- 

bers for  all  cycles  to  the 
first  segment. 

Lines  140-170     Find  the  direction  of  the 
segment  in  the  last  cycle. 


Lines  180-190        Compute  the  coordinates 
of  the  end  of  the  seg- 
ment, plot  the  segment, 
and  update  the  segment 
numbers  for  each  cycle. 

Lines  200-220        Same  as  lines  300-320  in 
Program  1. 

Like  Program  1,  pressing  any 
key  when  a  plot  is  complete  clears 
the  screen  and  brings  another 
prompt. 


Figure  1 :  Substitution  Cycles, 
Program  1 


Cycle  1 


Cycle  2 


Cycle  4      \J^ 


Experimentl 

I  hope  these  programs  encourage 
you  to  look  further  into  the  fascinat- 
ing world  of  fractals.  Don't  be  afraid 
to  experiment  with  the  programs — 
try  modifying  the  shape  of  the  gen- 
erator in  Program  3,  for  example. 
Better  yet,  design  your  own 
generator. 

These  programs  just  begin  to 
explore  the  possibilities  of  fractal 
computer  graphics.  There  is  another 
whole  class  of  fractals,  those  gener- 
ated by  functions  of  complex  vari- 
ables. And  then  there  are 
three-dimensional  fractals.  And 
then  .... 


Davidson  is 
in  Education 


For  math,  speed  reading,  spelling  and  vocabulary, 
Davidson's  award  winning  software  outsells  all  ottiers. 
Why?  Because  enough  people  choose  to  buy  the 
educational  software  that  works. 

HATl  BLASTER  makes  it  more  fun  to  add. 

subtract  multiply,  divide,  and  learn  fractions,  decimate 
and  percents.  First  through  sixth 
graders  master  600  math  fads  witfj 
exciSng  graphics,  animation,  sound 
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Speed  reader  n  can  quadmple  your  reading 
speed  and  improve  your  comprehension.  Develop 
good  reading  habits,  chart  your 
progress,  and  have  fun!  For  high 
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II™.  Macintosh™.  IBM™, 
Commodore  64/128"'.  69.95 


WORD  ATTACK  lets  sbidents  ten  through  adult 
discover  the  meanings  and  usages  of  675  new  words. 
Includes  a  fun,  fast-action  arcade 
\j^^  '       ^ame  and  add-your-own-words 
"J?**^S  ■  •       editor.  Apple'",  IBM''',  Commodore 
'■■■       64/128'",  Atari™.  49.95 


SPELL  IT  leaches  ten  year  olds  and  older  how  to 
spell  a  thousand  and  one  of  our  most  commonly 

misspelled  words.  Vivid  graphics, 
animation,  sound  effects,  a  lively 
arcade  game  and  add-your-own- 
words  editor,  too!  Apple™.  IBM'", 
Commodore  64/128™,  Atari™.  49.95 
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Figure  2:  Generator,  Program  3 


Values  For  Program  3 

Segment     Relative     Length       Side 

Number     Direction     Factor        Flag 

SN  RD  LN  SD 


0 

0 
7 

10 
0 
2 
2 


1/3 

0 

1/3 

1 

1/3 

1 

1/3 

0 

1/3 

0 

1/3 

0 

1/3 

1 

Program  1 :  The  Dragon 
Sweep 

IE    10    REM       PROGRAM    1 

iA   20    REM 

7B  30  REM   THIS  PROBRflM  PLOTS  A 

FRACTAL  "DRAGON  SWEEP" 
CI  40  REM   FDR  AN  EVEN  NUMBER  OF 

CYCLES  (14  MAX) . 
40  50  REM 
n   90  DIM  SN(14) 
5<  100  TEXT  5  HOME 
FI  110  PRINT  "ENTER  AN  EVEN  ND. 

OF  CYCLES  (2  TO  14)" 
»   120  INPUT  "  OR  ENTER 

A  ZERO  TO  QUIT;  "jNC 
fl7  130  IF  NC  =  0  THEN  END 
E4  140  IF  INT  (NC  /  2)  »  2  <  >  N 

C  OR  NC  <  2  OR  NC  >  14  TH 

EN  100 
ID  150  L  =  128:  FDR  C  =  2  TO  NC 

STEP  2iL  -  L  /  2!  NEXT 
E8  160  X  =  77:  Y  =  128:  HGR2  s  HC 

OLGR=  3!  HPLOT  X,Y 
Bl  170  FDR  C  =  0  TO  NCsSNCC)  =  0 

!  NEXT 
43  180  D  -  0:  FOR  C  -  1  TO  NC:  I 

F  SN(C  -  1)  -  SN(C)  THEN 

D  =  D  -  l!  GOTO  200 
4i  190  D  =  D  +  1 
ED  200  IF  D  =  ~  1  THEN  D  =  7 
IC  210  IF  D  =  8  THEN  D  -  0 
FD  220  NEXT 
n   230  IF  D  =  0  THEN  X  =  X  +  L: 

SOTO  270 
f#  240  IF  D  =  2  THEN  Y  =  Y  +  L: 

SOTO  270 
U   250  IF  D  =  4  THEN  X  =  X  -  L: 

GOTO  270 
n   260  Y  =  Y  -  L 
J5  270  HPLOT  TO  X,YiSN(NC)  =  SN ( 

NC)  +  1 
II  280  FOR  C  =  NC  TO  1  STEP  -  1: 
IF  SN(C)  <  >  2  THEN  300 
!f  290  SN(C)  =  0:SN(C  -  1)  =  SN  t 

C  -  1)  +  1:  NEXT 
U   300  IF  SN(0)  =  0  THEN  180 
Si  310  GET  A«:  IF  A«  =  ""  THEN  3 

10 
If  320  GOTO  100 


Program  2:  Eight  Thousand 
Dragons 

2E  10  REM   PROGRAM  2 
iA  20  REM 
i>  30  REM 

12   40  REM   THIS  PROGRAM  PLOTS  RA 
NDOM  FRACTAL  "DRAGON  SWEEP 
S.  " 
7C  50  REM   THE  "STANDARD"  DRAGON 

IS  ALWAYS  PLOTTED  FIRST. 
4E  60  REM 
!F  70  REM   WHEN  A  PLOT  IS  COMPLE 

TE,  PRESS  THE  SPACE  BAR 
»1  80  REM   TO  PLOT  ANOTHER  DRAGO 

N,  OR  PRESS  THE  "Q"  KEY 
•n   90  REM   TO  EXIT  THE  PROGRAM. 
82  100  REM 
BS  130  REM 

Li    140  HIMEM:  163B3 
06  150  FDR  N  -  24612  TO  24912:  R 

EAD  I:  POKE  N, Is  NEXT 
IF  160  FDR  N  =  24591  TO  24605:  P 

OKE  N,0;  NEXT  s  GOTO  180 
17  170  FDR  N  =  24593  TO  24605:  P 

OKE  N,  INT  (  RND  (1)  «  2) 

:  NEXT 
24  190  HGR2  :  HC0LOR=  3:  CALL  24 

619 
8!  190  GET  A«:  IF  A*  =  "  "  THEN 

170 
BB  200  IF  A«  <  >  "Q"  THEN  190 
FF  210  TEXT  :  END 

FI  220  DATA  1,2,4,8,16,32,64,169 
M  230  DATA  0,141,16,96,160,14,1 

53,0 
IC  240  DATA  96,136,192,255,208,2 

48,141,32 
«F  250  DATA  96,162,77,142,31,96, 

160,128 
22  260  DATA  140,33,96,32,248,96, 

169,0 
ft!  270  DATA  141,30,96,162,0,160, 

1,  185 
DB  280  DATA  15,96,208,20,238,30, 

96, 1B9 
24  290  DATA  0,96,217,0,96,208,26 

,206 
2B  300  DATA  30 , 96 , 206 , 30 , 96, 76 , 1 

25,96 
ftfl  310  DATA  206,30,96,189,0,96,2 

17,0 
24  320  DATA  96,208,6,238,30,96,2 

38,30 
85  330   DATA   96,173,30,96,16,5,16 

9,7 
flF  340   DATA   141,30,96,201,8,208, 

5,169 

14  350   DATA    0,141,30,96,232,200, 

224,14 
DB  360   DATA   208,189,170,208,20,1 

73,31,96 
17  370   DATA   24,105,1,141,31,96,1 

73,32 
4D   380    DATA    96,105,0,141,32,96,7 

6,210 
7*  390   DATA    96,224,2,208,6,238,3 

3,96 
44   400   DATA    76,210,96,224,4,208, 

20, 173 
IC  410   DATA    31,96,56,233,1,141,3 

1,96 
i3   420    DATA    173,32,96,233,0,141, 

32,96 
El   430    DATA   76,210,96,206,33,96, 

32,248 

15  440    DATA   96,238,14,96,160,14, 

162, 13 
4B   450    DATA    185,0,96,201,2,208,1 

2,169 
84  460   DATA    0,153,0,96,254,0,96, 

202 


CF  470    DATA    136,208,237,173,0,96 

,208,3 
El   480    DATA    76,74,96,96,173,33,9 

6,  10 
Dl   490    DATA    10,41,28,9,64,133,27 

,173 
n  500   DATA   33,96,74,74,74,74,41 

,3 
FF   510    DATA    5,27,133,27,173,33,9 

6,41 

45  520    DATA    192,72,106,133,26,10 

4,74,74 
IF   530    DATA    74,5,26,133,26,173,3 

1,96 
BF  540   DATA    141,34,96,173,32,96, 

141,35 

46  550    DATA    96,56,160,255,200,17 

3,34,96 
K  560    DATA   233,7,141,34,96,173, 

35,96 
35  570   DATA    233,0,141,35,96,16,2 

37, 173 
FC   580    DATA    34,96,105,7,170,189, 

36,96 
71    590    DATA    17,26,145,26,96 


Program  3:  The  Snowflake 
Sweep 

3E    10    REM       PROGRAM    3 

4ft   20    REM 

Bl  30  REM   THIS  PROGRAM  PLOTS  A 

FRACTAL  "SNOWFLAKE  SWEEP" 
it   40  REM 
K   50  DIM  DX tll),DY(ll) iM  =  7  / 

6 
IC  60  FDR  N  •=  0  TO  6s  READ  SD(N) 

,RD<N)tLN(N)  -  1  /  3i  NEXT 
iLN(2)  1    SQR  (LN(1) ) 
Fl  70  A  =  0:  FOR  D  =  6  TO  1 1  s  DX  ( 

D)  =  COB  (A>:DY(D)  -  SIN  t 

A) 
BC  80  A  =  A  +  0.52359879:  NEXT 
E8  90  FOR  D  =  0  TO  5sDX<D)  "  -  D 

X(D  +  6)iDy(D>  -  -  DYiD  + 

6)1  NEXT 
54  100  TEXT  :  HOME 
85  110  PRINT  "ENTER  NUMBER  OF  CY 

CLES  <  1  -  4  )" 
91  120  INPUT  "  OR  ENTER 

A  ZERO  TO  QUITl  "jNC 
67  130  IF  NC  =  0  THEN  END 
1ft  140  IF  NC  >  4  THEN  100 
n    150  HGR2  s  HCDLDR=-  3 
BE  160  X  =  235iY  =  142: TL  =  162: 
HPLOT  X,Y 

91  170  FOR  C  =  0  TO  NCsSN(C)  »  0 

1  NEXT 

«4  180  D  -  0:L  =  TLiNS  -  0i  FOR 
C  -  1  TO  NCiI  -  SN(C)lL  - 
L  «  LNOtJ  -  SN(C  -  1)1 
NS  -  NS  +  SD(J>sK  -  INT  ( 
NS  /  2):  IF  K  «  2  <  >  NS 
THEN  D  -  D  +  12  -  RD(I>i 
GOTO  200 

61  190  D  "  D  +  RDd) 

92  200  IF  D  >  11  THEN  D  =-  D  -  12 
FB  210  NEXT 

71  220  X  =  X  +  M  «  L  «  DX{D>lY  - 
Y  -  L  «  DYtD>l  HPLOT  TO 
X,YiSN<NC)  -  SN(NC)  +  li 
FOR  C  -  NC  TO  1  STEP  -  li 
IF  SNCC)  <  >  7  THEN  240 

93  230  SN(C)  ■=  0SSNCC  -  I)  -  SN( 

C  -  1)  +  li  NEXT 
C!  240  IF  SN<0)  =  0  THEN  180 
4E  250  GET  A«s  IF  A«  -  ""  THEN  2 

50 
97  260  GOTO  100 
41  270  DATA  0,0,1,0,1,7,0,10,0,0 

.»,2,1,2  0 
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For  IBM  PC  &  PCjr 


Assistant  Technical  Editor 


In  the  December  1984  issue,  compute:  published  "Chess"  for  the  Commodore 

64,  VlC-20,  Atari,  and  Apple  computers.  This  month,  by  popular  demand,  we 

present  an  all-new  version  for  the  IBM  PC,  PCjr,  and  compatibles. 

Like  the  original  Chess,  the  IBM  version  has  intelligence 

rouiines  written  entirel]/  in  machiJie  language.  Additional 

features  make  it  our  most  powerful  chess  program  ever. 

It  has  multiple  skill  levels,  checking  for  illegal  moves,  one- 

and  two-player  modes,  reverse  moving,  and  many  other 

features.  The  program  requires  a  PC  with  at  least  128K 

RAM,  color /graphics  adapter,  BASICA,  and  a  disk  drive, 

or  an  Enhanced  Model  PCjr  with  Cartridge  BASIC. 


A  computer  chess  game  is  great  for  those  who  can't 
always  find  a  human  opponent.  But  "Chess"  is  more  than 
just  a  substitute  for  a  live  player.  You  might  call  it  a  "chess 
processor."  It  processes  chess  positions  as  easily  as  a 
word  processor  manipulates  text.  It  contains  all  the 
features  a  chess  player  could  ever  want.  Its  thinking 
routines  are  written  entirely  in  machine  language  for 
greater  speed,  and  they  use  basic  principles  of  artificial 
intelligence  to  simulate  an  actual  human  chess  player. 

Chess  consists  of  two  programs.  First,  type  in 
and  save  each  program.  Then  load  and  run  Program  1. 
You'll  have  to  wait  about  15  seconds  while  it  creates  a 
BLOAD  file  on  the  disk  called  CHESS.BLD  which 
contains  the  machine  language.  Once  this  file  is 
created,  Program  1  is  no  longer  used.  From  now  on, 
to  play  Chess,  simply  load  and  run  Program  2. 

After  running  Chess,  you'll  see  a  title  screen 
for  a  few  seconds  while  the  computer  prepares 
itself.  Then  the  board  is  displayed  with  the 
pieces  in  their  starting  positions.  You're  in 
command  of  the  white  pieces  versus  the 
computer's  black  pieces  on  skill  level  1,  the 
easiest  level.  You  should  see  a  frame  around 
the  square  in  the  lower-left  comer  of  the 
board.  This  is  the  cursor  which  takes  the 
place  of  your  hand  for  moving  and 
capturing  pieces. 
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"Chess"  for  the  IBM  PC  and  PCjr  is 
COMPUTERS  mosl  powerful  chess  program 
to  date. 

WHftftf 

Use  the  cursor  keys  to  move  the 
frame  cursor  atop  the  piece  you 
wish  to  move.  Press  and  release  the 
Enter  key.  Now  move  the  cursor  to 
the  square  on  which  you  want  to 
place  the  piece  and  hit  Enter  again. 
Your  piece  moves  to  the  new  square, 
and  the  computer  responds  instant- 
ly with  a  countermove. 

Sorry,  No  Cheating 

One  of  the  most  valuable  features  of 
IBM  Chess  is  that  it  checks  for  illegal 
moves.  If  you  try  to  make  an  illegal 
move,  the  computer  buzzes  and 
keeps  your  piece  on  its  square.  This 
feature  is  not  perfect,  however.  It 
won't  catch  illegal  moves  involving 
castling  or  en  passant  captures.  But  it 
will  catch  99  percent  of  all  illegal 
moves,  including  those  that  put 
your  king  in  check,  as  well  as  the 
more  obvious  ones  such  as  moving  a 
pawn  backwards.  If  the  computer 
accepts  your  move,  it's  probably 
legal,  but  not  necessarily  so.  If  the 
computer  rejects  your  move,  how- 
ever, you  can  be  sure  that  it  is  illegal. 

If  you're  a  beginner  at  chess, 
you'll  find  the  move-checking  fea- 
ture especially  valuable.  Just  by  try- 
ing various  moves  and  noting  which 
ones  the  computer  accepts,  you  can 
get  a  good  idea  of  the  way  each 
piece  can  move. 

Information  about  the  current 
game  is  displayed  at  the  top  of  the 
screen.  Move#  indicates  the  number 
of  the  move  currently  being  made. 


counting  from  the  start  of  the  game. 
In  chess,  a  move  by  both  sides  is 
considered  one  move.  So,  the  move 
number  is  changed  only  after  both 
sides  have  moved. 

To  Move  indicates  which  side 
has  the  move.  W  means  it  is  white's 
turn,  and  B  means  it  is  black's. 

Normally  after  you  move,  the 
computer  automatically  makes  the 
next  move.  This  can  be  turned  off  by 
pressing  the  T  key  to  switch  to  two- 
player  mode.  Now  you  can  play 
against  another  person  with  the 
computer  acting  as  referee  to  check 
for  illegal  moves.  To  switch  back  to 
one-player  mode,  press  T  again. 

You  can  also  let  the  computer 
make  moves  for  you  by  pressing  the 
M  key.  The  side  that  the  computer 
plays  depends  on  whose  turn  it  is. 
By  repeatedly  pressing  M,  you  can 
watch  the  computer  play  itself. 

Five  SIcili  Levels 

One  of  the  advantages  of  a  com- 
puter opponent  over  a  human  is  that 
you  can  tell  the  computer  exactly 
how  hard  you  want  it  to  try  to  beat 
you,  and  it  obediently  plays  at  that 
level  of  difficulty.  This  is  important 
because  it's  no  fun  if  you  always 
lose  or  always  win  effortlessly. 

Level  shows  the  current  skill 
level  from  1  to  5.  You  can  change 
the  level  at  any  time  by  pressing 
keys  1-5.  The  difference  between 
levels  is  the  number  of  moves  ahead 
that  the  computer  looks.  On  level  1, 
for  example,  it  looks  ahead  one  full 
move  or  two  half-moves  (its  move 
and  your  reply).  Each  succeeding 
level  looks  ahead  one  more  half- 
move  than  the  previous  level. 

Alas,  the  smarter  play  on  the 
higher  levels  doesn't  come  without 
a  price.  The  further  ahead  the  com- 
puter looks,  the  more  moves  it  must 
examine  and,  hence,  the  longer  it 
thinks.  Here's  a  rundown  of  the  five 
levels: 

Level  1:  Beginner.  Thinking 
time:  one  second.  Look-ahead:  two 
half-moves.  Fast  but  dumb. 

Level  2:  Intermediate.  Think- 
ing time;  five  seconds.  Look-ahead: 
three  half-moves.  Provides  a  rea- 
sonable challenge  for  impatient 
players. 

Level  3:  Tournament.  Think- 
ing time:  two  minutes.  Look-ahead: 
four  half-moves.  Since  the  usual 
time  limit  for  tournament  play  is  40 
moves  in  two  hours,  an  average  of 


three  minutes  per  move,  this  level  is 
best  suited  for  serious  players. 

Level  4:  Mate  in  two.  Thinking 
time:  20  minutes.  Look-ahead:  five 
half-moves.  Capable  of  solving 
most  mate-in-two  problems. 

Level  5:  Postal  chess.  Thinking 
time:  two  hours.  Look-ahead:  six 
half-moves.  Simulates  chess  by  mail 
where  there  is  no  time  limit.  Can 
avoid  checkmate  in  two  moves. 

These  thinking  times  are  aver- 
ages. The  actual  thinking  time  varies 
gready  depending  on  the  position. 
For  example,  level  5  takes  only  five 
seconds  with  just  two  kings  on  the 
board.  Also,  these  times  are  for  the 
PC  only.  Since  the  PCjr  runs  at 
about  two-thirds  the  speed  of  the 
PC,  the  thinking  times  for  the  PCjr 
are  greater  than  the  values  shown 
above. 

A  Spectacuiar  Blunder 

It  happens  to  everyone.  It's  inevita- 
ble. You've  played  for  an  hour, 
somehow  managing  to  maneuver 
into  a  superior  position  in  what  you 
consider  to  be  the  best  game  of  your 
life,  only  to  throw  it  all  away  in  a 
single,  spectacular  blunder. 

Don't  panic.  You  can  take  back 
the  last  half-move  by  pressing  the  B 
key.  If  you're  in  one-player  mode, 
you  need  to  press  B  again  to  take 
back  your  move  and  the  computer's 
reply.  In  fact,  you  can  press  B  re- 
peatedly to  take  back  several  moves 
until  you  reach  the  starting  position. 
This  is  possible  because  the  com- 
puter records  every  move  made  in 
the  game. 

Another  use  for  this  feature  is  to 
allow  the  computer  to  suggest  a 
move  for  you.  If  you  don't  have  a 
good  idea  of  where  to  move  next, 
press  M  and  the  computer  will  move 
for  you.  If  you  like  that  move,  press 
M  again  to  continue  with  the  com- 
puter's next  move.  But  if  you  think 
you've  found  a  better  move,  press  B 
to  take  back  the  suggested  move  and 
make  your  own  move. 

Pressing  the  F  key  does  the  op- 
posite of  B.  It  moves  forward 
through  the  move  list  up  to  the  most 
advanced  position.  Note  that  every 
time  a  new  move  is  made,  the  result- 
ing position  becomes  the  most  ad- 
vanced. So  if  you  use  B  to  backtrack 
to  a  previous  position,  and  then 
make  a  new  move,  all  subsequent 
stored  moves  are  erased  because 
they  are  no  longer  relevant. 


COMPUTEI     September  1985 


If  you  have  a  printer,  you  can 
print  the  move  list  by  pressing  the  P 
key.  The  list  appears  in  three  col- 
umns: the  move  numbers,  white's 
moves,  and  black's  moves.  Each 
move  is  indicated  by  the  square  the 
piece  moved  from  followfed  by  the 
square  it  moved  to.  Each  square  is 
specified  by  its  coordinates  accord- 
ing to  the  numbers  along  the  left 
side  of  the  board  and  letters  along 
the  bottom. 

You  can  also  dump  the  screen 
image  to  the  printer  to  get  a  hard- 
copy  of  a  particularly  interesting  po- 
sition. Before  loading  BASIC  from 
DOS,  type  GRAPHICS  with  the 
DOS  master  disk  in  the  drive.  Then 
run  Chess  and  press  Shift-PrtSc  (Fn- 
PrtSc  on  the  PCjr)  whenever  you 
want  to  print  the  position. 

Checkmate 

The  computer  thinks  by  analyzing 
thousands  of  possible  moves  and 
countermoves  and  choosing  what  it 
considers  to  be  the  best  move  based 
on  the  relative  value  of  the  pieces. 
Most  positions  don't  have  just  one 
best  move  but  several  which  are 
equally  good,  in  which  case  the 
computer  chooses  among  them  at 
random.  This  random  factor  insures 
that  every  game  will  be  different, 
and  makes  for  varied  and  interesting 
play. 

The  computer  announces  check- 
mate when  it  occurs.  However,  there 
are  a  few  quirks  in  the  way  the 
computer  evaluates  a  checkmate. 
On  levels  3-5,  it  announces  check- 
mate prematurely.  When  this  hap- 
pens, the  computer  has  determined 
that  it's  impossible  to  avoid  check- 
mate on  the  next  move  or  two — 
assuming  both  sides  make  the  best 
moves. 

Also,  the  computer  doesn't 
know  the  subtle  difference  between 
checkmate  and  stalemate.  Conse- 
quently, when  a  game  is  stalemated, 
the  computer  announces  checkmate 
even  though  the  game  is  a  draw. 
Since  the  computer  tries  as  hard  as  it 
can  to  checkmate  its  opponent,  it 
also  tries  to  achieve  stalemate,  pos- 
sibly forcing  a  draw  when  it  could 
have  won.  Fortunately,  this  rarely 
happens,  because  a  stalemate  re- 
quires unusual  circumstances,  such 
as  when  one  side  has  only  the  king 
remaining. 

You  can  start  a  new  game  at  any 
time  by  pressing  the  N  key.  This  sets 
up  the  pieces  in  the  starting  position 


with  white  on  the  bottom.  If  you 
want  to  play  the  black  pieces,  you 
can  press  the  I  key  to  invert  the 
board,  so  you  still  play  from  the 
bottom.  As  with  the  N  command, 
the  board  is  reset  to  the  starting 
position.  However,  the  N  and  I  com- 
mands retain  the  move  list  from  the 
previous  game.  This  allows  you  to 
replay  the  game  using  the  F  com- 
mand. When  replaying  a  game,  be 
sure  to  reset  the  board  by  pressing  I 
if  the  game  was  played  in  the  invert- 
ed mode,  or  N  if  normal  mode  was 
used. 

Set  Up  Any  Position 

You  don't  have  to  begin  a  game 
from  the  starting  position.  You  can 
set  up  any  position  and  begin  play- 
ing from  that  point.  If  you  want,  you 
can  first  clear  the  board  by  pressing 
the  C  key.  To  add  a  piece  or  change 
a  piece  to  a  different  one,  move  the 
cursor  to  the  appropriate  square, 
hold  down  either  Shift  or  Ctrl,  and 
press  P,  N,  B,  R,  Q,  or  K  for  pawn, 
knight,  bishop,  rook,  queen,  or  king, 
respectively.  Holding  down  Shift 
adds  one  of  the  lower  player's 
pieces,  and  Ctrl  adds  one  of  the 
upper  player's  pieces.  (Just  remem- 
ber that  Ctrl  is  above  Shift  on  the 
keyboard.)  A  piece  can  be  removed 
from  the  board  by  pressing  the 
space  bar.  Note  that  these  changes 
are  not  stored  in  the  move  list. 

These  commands  allow  you  to 
experiment  with  hypothetical  or 
downright  ridiculous  positions.  The 
position  doesn't  even  have  to  be 
legal.  Live  out  your  fantasy  by  giv- 
ing yourself  ten  queens  versus  the 
computer's  lone  king.  Or  invent 
your  own  type  of  chess  by  giving 
each  side  two  kings,  for  example 
(although  in  this  case  the  computer 
might  get  confused  trying  to  deter- 
mine a  checkmate). 

You  can  also  set  up  a  problem 
for  the  computer  to  solve,  such  as 
the  mate-in-two  problems  pub- 
lished in  many  newspapers.  To 
solve  a  mate-in-two  problem,  press 
C  to  clear  the  board,  set  up  the 
position,  press  4  to  select  level  4, 
and  press  M  to  start  the  computer 
thinking.  After  several  minutes  of 
deep  thought,  the  computer  will 
make  a  move  (the  solution)  and  an- 
nounce checkmate.  The  only  mate- 
in-two  problems  that  the  computer 
cannot  solve  are  those  which  in- 
volve castling,  en  passant  captures, 
or  pawn  promotion. 


Special  Moves 

The  computer  never  castles  or  cap- 
tures en  passant  because,  due  to  their 
complexity,  these  moves  are  not  in- 
cluded in  its  thinking  routine.  But 
you  can  make  these  special  moves. 
To  castle,  move  the  king  fU'O  squares 
to  the  left  or  right.  The  rook  moves 
automatically.  To  capture  en  passant, 
move  your  pawn  diagonally  to  the 
proper  square.  The  opponent's 
pawn  is  removed  automatically.  Re- 
member, the  computer  doesn't 
check  for  illegal  moves  involving 
castling  or  en  passant  captures,  so  if 
you're  a  beginner,  you  should  famil- 
iarize yourself  with  the  rules  on 
these  special  moves. 

When  a  pawn  reaches  the  op- 
posite side  of  the  board,  it's  auto- 
matically promoted  to  a  queen.  In 
the  rare  event  that  you  would  rather 
promote  to  a  knight,  bishop,  or 
rook,  you  can  easily  make  the 
change  by  positioning  the  cursor 
over  the  new  queen  and  pressing  N, 
B,  or  R  with  Shift  or  Ctrl.  Note, 
however,  that  underpromotions  are 
not  stored  in  the  move  list. 

Saving  A  Game 

If  you  want  to  stop  the  present  game 
and  continue  later,  you  can  save  the 
game  on  disk  (in  drive  A)  by  press- 
ing the  S  key.  You'll  see  the  prompt 
Save:.  Type  in  a  filename  for  your 
game  and  press  Enter.  The  filename 
can  be  up  to  eight  characters  long. 
Don't  type  an  extender;  ,CHS  is 
added  automatically.  If  a  file  on  the 
disk  already  has  the  same  name,  it 
will  be  replaced. 

To  load  a  previously  saved 
game,  press  the  L  key.  Answer  the 
Load:  prompt  with  the  filename  and 
press  Enter.  (Don't  type  the  .CHS 
extender.)  The  L  command  restores 
the  game  exacdy  as  it  was  when  it 
was  saved.  Not  only  the  position  is 
restored,  but  also  the  move  list  and 
even  the  position  of  the  cursor. 

If  the  computer  is  unable  to 
save  or  load  a  game,  an  error  num- 
ber is  displayed.  See  Appendix  A  of 
the  BASIC  Reference  Manual  for  a 
description  of  the  error. 

Besides  allowing  you  to  con- 
tinue a  game  at  a  later  time,  the  S 
and  L  commands  can  be  used  to 
create  a  library  of  your  best  games. 
To  do  this,  press  N  or  I  just  before 
saving.  The  game  will  come  up  in 
the  starting  position  when  loaded 
and  can  be  replayed  using  the  F 
command. 
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IBM  Chess  Commands 

B:  Move  backward 

C:  Clear  board 

F:  Move  forward 

I:  New  game  (inverted) 

L:  Load  game 

M:  Computer's  move 

N:  New  game 

P:  Print  move  list 

S:  Save  game 

T:  Two  players 

1-5:  Level 

Cursor  Keys:  Move  cursor 

Enter:  Your  move 

Space  Bar;  Remove  piece 

Shift-P:  Lower  player's  pawn 

Shift-N:  Lower  player's  knight 

Shift-B:  Lower  player's  bishop 

Shift-R:  Lower  player's  rook 

Shift-Q:  Lower  player's  queen 

Shift-K:  Lower  player's  king 

Ctrl-P:  Upper  player's  pawn 

Ctrl-N:  Upper  player's  knight 

Ctrl-B:  Upper  player's  bishop 

Ctrl-R;  Upper  player's  rook 

Ctrl-Q:  Upper  player's  queen 

Ctrl-K:  Upper  player's  king 


IE  20 

E£  30 

SB  40 


KC  50 
JS  60 


For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  published  bimonthly  In  coMPUTEf. 

Program  1 :  IBM  Chess 
(Machine  Language) 

IE  10  DEF  SEG=8<HFFFF:IF  PEEK  (14) 
=253  THEN  DEF  SES=ScH1700:G 
DTD    30 

DEF    SEG=8cHlC00 
FOR    1=1    TO    31:REflD    A*:FOR 
J»l    TO    143    STEP    2 
POKE   «,VAL("8<ti"+MID«CA*,J, 
2))!K-K+1;IF    K<B25    THEN    NE 
XT! NEXT 

BSAVE "chess. bl  d "  ,  0,  825 

DATA  ieB8311C8EDB8C16E1003 

926E300B8401 CBED0BC000 lEa0 

A00aE16E100flB26E3001FCBFAB 

90B008BD9C6875E00C0E2F7C60 

65E0000C606E00000BB0000BFF 

FFFE90a01BA854C0002 

OJ  70  DATA  a5540050BAD88AB7i.700B 

A9D4C00BBB767008AB52C005BB 

8876700040650BBlE2900C6e7ib 

000005B8A8F 1 0002A8D6000CiB 

56000C0B3FF0075523A0E5F007 

C4B751 1B000E643E440 

IB  80  DATA  E4403A065E00723BA2SE0 

0B03EDF000074 1DA04C003A065 

C00752a020ibS4003A0i5D00751 

EB0F9E57E19FE06E000C38B0E5 

F00BA0E4C00BB0E5C00BA0E540 

0BB0E5D00C33AaD5F00 

DATA  7EF9B8BD5F00BA9D2B00B 

0C306e A87 10002AB55F003AB55 

E007C4083FF0174DB3AB55E007 

435C3aA8D4C0002BD5400BAD98 

Aa76700B03E2B000075063C01 7 

DBB7C0B3C007CB53C07 

PF  100  DATA  74B18aa52C003C067404 

3C;FA750ftC6B55F002E5ft5ftEB5 

C90BA9D4C00BAa76700Ci874.7 

0000BAD9BBB767003B3EZ9007 

S03E9EFFE47C4.a34C001 48036 

2B0001FEB54C00BA9D4C00BA 

EK  110  DATA  9F6700B03E2B0000750D 

B0FB0 1 7C 1 5B0FB0774 1 0EB089 

0B0FB007D0BF6DBD0E3FF971B 

00a0BD4C00627CCC83FF00740 


90 


9B0362B000 14FE9A2FEA05C00 
00065D00FBC3803E2B000075 

HO  120  DATA  5E8A9D4C0080C30Ae0BF 
6700007523C6a554000AEa3BF 
FaA9D4C00B0FB277D1680C314 
80BF67a000750BC6B5540014E 
BlDFFaA9D4C00B0C309a0BF67 
00007D0aC6e5S40009EB07FF 

W  130  DATA  8A9D4C0080C30BB0BF67 
00007D0BC6B554000BE8F 1 FEC 
3BA9D4C00a0C3F6B0BF670000 
7523C6855400F6EaDAFEBA9D4 
C00B0FB517C16a0C3ECB0BF67 
0000750BC6a55400ECEBBFFE 

FL  140  DATA  BA9D4C00B0C3F7B0BF67 
00007E08C6855400F7EflA9FE8 
A9D4C00B0C3F5B0BF6700007E 
0BC6B55400F5ES93FEC3C6a53 
40000B3008A8700008aB55400 
E8B0FEFE853400aA9D3400a0 

OB  150  DATA  FB0B7CE8C3C6aS440004 
C6B5340000EBia90C68544000 
8C6B5340004EB0B90C6854400 
0BC6B5340000aA9D3400SAB70 
B00eBBS3C00BBBS5400E83BFE 
BA854C0002B55400BADaa0BF 

Bl  160  DATA  670000750ABAB5540002 
853C00EBDEFE853400BA9D340 
03A9D44007CC8C3C685340000 
B3008A8708008e855400EBFFF 
DFEe53400SA9D340080FB0B7C 
EaC30000 1 50CF8EDEBF40S 1 3 

KB  170  DATA  0BF7F5090A01F6FF2E09 
0503030 1 000 1 030305092EAA0 
16D028D029A02A702EE02 


Program  2:  IBM  Chess  (Main 
Program) 


KK   10 


n  20 


JD  30 
6F  40 
«F  50 
m  60 
NC   70 

LD   80 

EF   90 


91   100 


MF 

110 

OF 

120 

m 

130 

Ld 

140 

IB 

1S0 

FD 

160 

170 


l!6 

180 

NB 

190 

Nn 

200 

EP 

210 

PO 

220 

KB   230 


m  240 


CD=S<H1C00:DEF  SEG=!,HFFFF:  I 
F  PEEK  (14)  =253  THEN  C0=!<H1 
700! 1-1 

DA-C0+49tDEF   SEB-COiBLOAD" 

chess. bid", 0: IF  I  THEN  PDK 

E  3,23lP0KE  16,23 

DEF  SEG=DA!GOSUB  690 

M=40iN=158:K=21 

POKE  43,l-BB:G0TO  1B0 

IF  C2  THEN  180 

POKE  223,0: DEF  SEG=CO! SOUN 

D  99, 0s CALL  ML: DEF  SEG-DA 

IF  PEEK  (95X229  AND  PEEK  (9 

5)>150  THEN  1=0! GOTO  120 

K1=PEEK (92) : K=PEEK (93) : SOU 

ND  500,1:GOSUB  1190iGDSUB 

950 

IF  PEEK(95)>99  OR  PEEK (95 

X2B  THEN  180 

1=1 

X=I+BB+PEEK(43):IF  1=0  TH 

EN  POKE  43, -(PEEK (43) =0) 

GOSUB  14105pRINT"Checkmat 

e!   ", 

IF  X/2-INT<X/2)  THEN  PRIN 

T"White  wins."iG0TO  160 

PRINT"Black  wins." 

SOUND  999, 9: FOR  J=0  TO  20 

0;NEXT 

SOUND  260, 9: FOR  J=0  TO  20 

0:NEXT 

F=0:M=M-8:N=N-3 

GOSUB  680 

C«=INKEY*:IF  C*-""  THEN  2 

00 

IF  LEN(C*)=1  THEN  270 

C=ASC(RIGHT«(C*, l))s IF  C= 

75  AND  M>32  THEN  GOSUB  68 

0:M=M-31:K-K-l!GOTO  190 

IF  C=77  AND  M<249  THEN  GO 

SUB  680!  M«ri+31:K=K+1:  GOTO 
190 

IF  C=72  AND  N>B  THEN  GDSU 


B  6B0;N=N-2l!K=K+10!BDTO 

190 
DB  250  IF  C=80  AND  N<1S3  THEN  BO 

SUB  680!N=N+2l!K=K-t0:GOT 

0  190 
BD  260  GOTO  200 
i?   270  C=ASCCC4) : GOSUB  1400: IF  C 

013  OR  F=0  THEN  360 
GF  280  POKE  92,  Kl:  POKE  93,K:J=.PE 

EK(41)!pOKE  41,lsP0KE  223 

.1 
FF  290  DEF  SEG=CO! CALL  ML s DEF  SE 

B=DA 
DO  300  POKE  41, J: IF  PEEK(224)=0 

THEN  320 
a   310  GOSUB  11905GOSUB  950:BDTD 

60 
KG  320  X=PEEK(103+K1) ! IF  (X=6  OR 
X-250)  AND  ABS(K-K1)=2  T 

HEN  GOSUB  11 90: GOSUB  950: 

Y-(<l!Kl=21-70»  (X>6)-7»  (K> 

Kl)  :K-=K+(K>Y)-(Y>K)  !  MM=MM 

-l!SQSUB  1190:PR(MV)=1:GO 

SUB  950! GOTO  60 
BO  330  IF  PEEK(103+K)  THEN  350 
m  340  IF  (X=l  OR  X=255)  AND  (AB 

S(K-K1)=9  OR  ABSCK-K1)=11 

)  THEN  GOSUB  1190: GOSUB  9 

50iK-K+10«(X  =  l>-10t(X>l)  ! 

MM-MM-l: GOSUB  1190!PR(MV) 

-1: GOSUB  9501  GOTO  60 
PE  350  SOUND  100,4; F=0: POKE  43,- 

(PEEK(43)=0) !GOTO  200 
6A  360  IF  F  THEN  200 
JO  370  IF  COO  OR  PEEK(103+K)=0 

THEN  410 
OJ  380  IF  PEEK  (43)  AND  PEEK  ( 103  + 

KX7  THEN  400 
DH  390  IF  PEEK  (43)  OR  PEEK  ( 103+K 

X7  THEN  410 
NO  400  Kl=K:F=l! SOUND  500,1: GOTO 

200 
AD  410  S^0 

JL  420  IF  D(S)=C  THEN  450 
EK  430  S=S+l!lF  S<2a  THEN  420 
BB  440  GOTO  200 
Jfl  450  IF  S>22  THEN  SOUND  S00,l: 

LOCATE  1,22 SPRINT  C«!PDKE 
41, VAL(C») :GOTa  200 
HB  460  IF  S=13  THEN  SOUND  500,1: 

eOSUB  6B0:M=M+B:N=N+3!GDT 

0  70 
IF  470  IF  S-=14  THEN  SOUND  500,  1 1 

FOR  1-0  TO  70  STEP  10: FDR 
J-0  TO  7:P0KE  124+I+J,0: 

NEXT:  NEXT:  MX-0:  M  V=0 :  MI1=0  i 

BBo0« GOSUB  900: GOTO  40 
m   480  IF  SO  15  OR  MV=0  THEN  530 
U  490  SOUND  500,1: POKE  43, -(PEE 

K(43)-0)i GOSUB  680: GOSUB 

1200! MM-MM-l! GOSUB  1430 
GD  500  IF  ABS(PC(MV)-12B)=122  AN 

D  ABS(FR(MV)-T(MV) )=2  THE 

N  60SUB  1200 
F6  510  IF  ABS(PC(MV)-128)=127  AN 

D  PC(MV+l)-0  AND  MV<MX  TH 

EN  GOSUB  1200 
6n  520  GOTO  180 
HH  530  IF  S016  OR  MV>=MX  THEN  5 

B0 
FH  540  SOUND  500,1: POKE  43, -(PEE 

K (43) -0) : GOSUB  680: GOSUB 

1210! MM-MM+1: GOSUB  1430 
LO  550  IF  ABS(PC(MV)-128)=122  AN 

D  ABS(FR{MV)-T(MV))=2  THE 

N  GOSUB  1210 
KC  560  IF  ABS  (PC  (MV) -128)  =  127  AN 

D  PC(MV+1)=0  AND  MV<MX  TH 

EN  GOSUB  1210 
66  570  GOTO  180 
KJ  580  IF  S=17  THEN  BB=0:GOTO  67 

0 
PO  590  IF  3=18  THEN  1280 
HA  600  IF  5-19  THEN  1220 
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FE  610  IF  S=20  THEN  1340 

a.   620  IF  S=21  THEN  BB=l:GaTa  67 

0 
US  630  IF  S'22  THEN  SOUND  500,1: 

C2-1-C2 
Bl  640  IF  S>12  THEN  200 
HH  650  SOUND  500,1: IF  S>6  THEN  5 

-262-S 
Pt  660  POKE  103+K,S:GOSUB  9S0:M=c 

M-BiN-N-SiBQTO  190 
EG  670  SOUND  500,  lsMV-0:nM<°0:FOR 
1-0  TO  77lP0KE  1+124, BD< 

I ) I NEXTl 60SUB  B90lGOTa  40 
81  6S0  PUT  «n,N>,F,XORl RETURN 
m   690  KEY  OFF: SCREEN  1,0 1  COLOR 

0,liCLS 
BS  700  POKE  41,1 
AB  710  DEFINT  P,N,B,R,Q,K,F 
LD  720  DIM  A(64) ,C(64) ,D<27),P(3 

0),N(30) ,B(30) ,R<30),Q<30 

),K(30),F(82),FR(200),T<2 

00) ,PC(200) ,CA<200),PRt20 

0) ,BD(77) 
PP  730  FOR  1=0  TO  27: READ  D(I):N 

EXT 
6J  740  LINE  (0,0)-(29,19) , 1,BF 
NF  750  GET  (0,  0)  -  (29,  19)  ,  A:  CLS 
HF  760  LINE  (0,  0)  -  (29,  19)  ,  2,  BF 
AH  770  GET  (0,0)-(29, 19) ,C:CLS 
00  7B0  LOCATE  10, IB: PR INT  "CHESS 

011790  LOCATE  12,  15: PRINT" John  K 

rause" 
m   800  FOR  1=103  TO  222: POKE  1,7 

:NEXT 
ei   810  FOR  1=0  TO  77:  READ  BD  ( I )  : 

POKE  1+124, BD (I) : NEXT 
PN  820  FOR  K=0  TO  30: READ  P(K):N 

EXT 
Bf  B30  FOR  K=0  TO  30: READ  N(K):N 

EXT 

n   840  FDR 

EXT 

CD  B50  FOR 

EXT 

BH  B60  FOR  K=0  TO  30: READ  0(K):N 

EXT 
IP  B70  FOR  K=0  TO  30:  READ  K(K):N 

EXT 
PL  3B0  FOR  K=0  TO  82: READ  F(K):N 

EXTsCLS 
JC  890  IF  BB  THEN  POKE  127,6:PaK 
E  128,5:P0KE  197,250: POKE 
198,251 
Hd  900  LOCATE  1 , S: PRINT "Movett 

Level  "PEEK (41 )  ■'   To  mo 
ve:":GOSUB  1430 
Et  910  FOR  1=0  TO  7: FOR  J=0  TO  7 
IB  920  H=70-10tI+J:GOSUB  960: NEX 

T:NEXT 
CD  930  FOR  1=1  TO  8: LOCATE  3«I-1 

+(I>4) ,2:PRINT  9-riNEXT 
DI  940  GDSUB  1400:  RETURN 
DO  950  H=K-21: I=INT(H/10) :J=H-10 

*l! 1=7-1 
PA  960  M=31«J+40:N=2UI  +  11 
FF  970  IF  INT( (I+J)/2)-(I+J)/2  T 
HEN  PUT  (M-fl,N-3) ,C,PSET! 
SOTO  990 
ni  980  PUT  (M-B,N-3) , A,PSET 

990  L=PEEK<124+H) : IF  1=0  AND 

L-1  THEN  L-5:P0KE  124+H,L 
1000  IF  1-7  AND  L=255  THEN  L= 
251: POKE  124+H,L 
IF  L>6  THEN  L=L-256 
1020  ON  ABS(L>  GOTO  1040,1050 

, 1060, 1070, 1080, 1090 
1030  GOTO  1100 

1040  PUT  (M,N) ,P,aR:GOTO  1100 
(M,N) ,N,aR:GaTQ  1100 
(M,N) ,B,OR:60TO  1100 
(I1,N>  ,R,0R:G0TO  1100 
(M,N) ,Q,0R:6QTO  1100 
IB  1090  PUT  (M,N) ,K,0R 


K=0  TO  30: READ  B(K):N 


K-0  TO  30:READ  R{K>:N 


HC 
JF 
PK  1010 

an 

IL 

KF 

KI  1050  PUT 

6L  1060  PUT 

00  1070  PUT 

PB  1080  PUT 


DH 

1220 

KO 

1230 

LA 

1240 

HC 

1250 

SN 

1260 

30 

1270 

P6  1100  IF  BB  THEN  L=-L 

KF  1110  IF  L>=0  THEN  RETURN 

PF  1120  ON  -L  GOTO  1130,1140,115 

0, 1160, 1170, 11B0 
FD  1130  PUT  (M,N)  ,P,XOR:  RETURN 
D6  1140  PUT  (MjN) ,N,XOR: RETURN 
U  1150  PUT  (M,N) ,B,XOR: RETURN 
IN  1160  PUT  (M,N) ,R,XOR:RETURN 
HP  1170  PUT  (M,N>,O,X0R! RETURN 
BC  1180  PUT  (M,N} ,K,XOR:RETURN 
m   1190  K2=K:K=K1:MV=HV+1:PR(MV) 
-0: MM=MH+1 : MX=HV: FR (MV) = 
K:PC(MV)=PEEK(103+K)!POK 
E  103+K,0iGOSUB  950:K=K2 
! T  CMV) -K: CA (MV) -PEEK ( 1 03 
+K)sPQKE  103+K,PC(MV) :BD 
SUB  1430: RETURN 

tN  1200  POKE  103+FR<MV) ,PC(MV)  :P 
OKE  103+T(MV) ,CA(MV) :K=T 
(MV):GOSUB  950:K=FR (MV) ; 
GOSUB  9501  riV=MV-l:  RETURN 

fO  1210  MV=MV+1:P0KE  103+T(MV),P 

EEK(103+FR(MV) ) :PDKE  103 

+FR(MV) ,0:K=FR(MV) : GDSUB 

950: K=T (MV) ! GOSUB  950iR 

ETURN 

SOUND  500,1: GOSUB  1410:1 
NPUT"Save!  -^N* 
ON  EFiF^OF)  GOTO  1420 
OPEN  N«+".qhs"  FOR  OUTPU 
T  AS  4tl 

FOR  1=124  TO  201:PRINT  * 
1,PEEK(I) :NEXT 
PRINT  »1,PEEK(41) ,PEEK(4 
3) ,MV,MX,MM,BB,M,N,K,C2 
FOR  1=1  TO  MX: PRINT  «1,T 
(I),FR(I)  ,PC{n,CA(I)  ,PR 
(I) :NEXT:CLOSE  ttl:ON  ERR 
OR  GOTO  0: GOSUB  1400: GOT 
0  200 

BC  1280  SOUND  500,1: GOSUB  1410:1 
NPUT"Load!  '■,N» 

LA  1290  ON  ERROR  GOTO  1420 

6N  1300  OPEN  N«+".chs"  FDR  INPUT 
AS  Ml 

FJ  1310  FOR  1=124  TO  201: INPUT  tt 
1, J: POKE  I, J: NEXT 

EM  1320  INPUT  «1, X, J,MV,MX,MM,BB 
,M1,N1,K1,C2:P0KE  41,X!P 
OKE  43, J 

HI  1330  FDR  I-l  TO  MX: INPUT  «1,T 
( I ), FR ( I ), PC ( I ), CA ( I ), PR 
(I) jNEXT:CLOSE  #1iON  ERR 
OR  GOTO  01 GOSUB  900!M«M1 
iN-Nl!K=Ki:SOTO  190 

PC  1340  SOUND  500, 1:X=0:FOR  1=1 
TO  MXiIF  PR(I)  THEN  1370 

BD  1350  X=X+1:IF  X/2-INT(X/2)  TH 
EN  LPR1NT(X+1)/2"  " ; t GOS 
UB  1380: eOTO  1370 

JH  1360  LPRINT"  "j;G0SUB  13B0: 
LPRINT 

HH  1370  NEXT: LPRINT: GOTO  200 

HE  1380  J-INT(FR(I)/10):LPRINT  C 
HR» (64+FR ( I > -10*J) i  MID* ( 
STR*(J-1),2,1)"-") 

HD  1390  J=INT(T(I)/10):LPRINT  CH 
R» (64+T ( I ) -10*J) ; MID* (ST 
R«tJ-l>,2,l)5:RETURN 

LC  1400  LOCATE  23, 6: PRINT" A    B 
C    D    E    F    G    H" 
I  RETURN 

LE  1410  LOCATE  23,  6:  PRINT" 


1  LOCATE  23,9: RETURN 
1420  GOSUB  1410:PRINT"Error  *t 

"ERR: RESUME  200 
1430  LOCATE  1,10! PRINT  INT (MM 
/2+1)"  "! LOCATE  1,35! IF 
INT (MM/2) -MM/2  THEN  PRIN 
T  CHR«<B7)iRETURN 
1440  PRINT  CHR* (66): RETURN 
1450  DATA  32,80,78,66,82,81,7 


5,16,14,2,18, 17,11,109,9 

9,98,102,110, 108,115,112 

,105,116,49,50,51,52,53 
CL  1460  DATA  4,2,3,5,6,3,2,4,7 
FD  1470  DATA  7,1,1,1,1,1,1,1,1,7 
LB  14B0  DATA  7,0,0,0,0,0,0,0,0,7 
LE  1490  DATA  7,0,0,0,0,0,0,0,0,7 
KL  1500  DATA  7,0,0,0,0,0,0,0,0,7 
KO  1510  DATA  7,0,0,0,0,0,0,0,0,7 
IJ  1520  DATA  7,255,255,255,255,2 

55,255,255,255,7 
HO  1530  DATA  7,252,254,253,251,2 

50,253,254,252 
BO  iS40  DATA  28,14,0,0,0,0,3840, 

0 
OE  1550  DATA  16128,192,16128,192 

,3840,0, 16128, 192 
*f  1560  DATA  3840,0,3840,0,16128 

, 192,-256,240 
DB  1570  DATA  -256,240,0,0,0,0,12 

8 
PK  15B0  DATA  28,14,3,0,-16381,0, 

-1021,0 
LC  1590  DATA-241, 192,-244,240,-2 

41,240,-241,252 
PL  1600  DATA  -193,252,-12481,255 

, 3852, 255, 1612B,  235 
KF  1610  DATA  -256,255,-253,255,- 

253,255,-253 
PB  1620  DATA  28,14,-4096,240,-40 

96,240,-1021,252 
CF  1630  DATA  -253,60,-253,204,-2 

53,204,-253,204 
KK  1640  DATA  -256,240,-16384,48, 

-256 , 240 , - 1 6384 , 4B 
LL  1650  DATA  -193,-16129,-3841,- 

3841 , 192, 12288,-253 
OP  1660  DATA  28,14,16143,207,161 

43,207,-241,255 
IJ  1 670  DATA  3,12, -253, 252 , -253 , 

252,-253,252 
NG  1680  DATA  -253,252,-253,252,- 

253,252,3, 12 
E6  1690  DATA  -241,255,-193,-1612 

9,-193,-16129,-193 
CE  1700  DATA  28,14,-16384,192,-1 

6384, 192,-16384,  192 
FA  1710  DATA  -16192,-16192,-3133 

,-16144,-3277,243,-3277, 

243 
EB   1720    DATA    -193,255,12,12,-241 

,252,-3313,252 
Kt    1730    DATA    -241,252,12,12,-241 

,252,0 
CD   1740    DATA   28,14,-256,192,-133 

12,192,-3268,207 
KP   1750    DATA    -13057,-16129,-1,-1 

6129,-16129,-16129,-3265 

,255 
FP   1760    DATA    -193,255,12,12,-241 

,252,-3313,252 
KE    1770    DATA   -241,252,12,12,-241 

,252,0 
CJ    1780    DATA   60,20,-1,-1,-1,-384 

1.-1,-1 
GB   1790    DATA    -1,-3841,252,0,0,-4 

093,252,0 
DP    1800    DATA    0,-4093,252,0,0,-40 

93,252,0 
El    1810   DATA   0,-4093,252,0,0,-40 

93,252,0 
EL    1820   DATA    0,-4093,252,0,0,-40 

93,252,0 
EO    1830   DATA    0,-4093,252,0,0,-40 

93,252,0 
EB   1840   DATA   0,-4093,252,0,0,-40 

93,252,0 
£E   1850   DATA   0,-4093,252,0,0,-40 

93,252,0 
EH   1860    DATA    0,-4093,252,0,0,-40 

93,252,0 
I!    1S70    DATA   0,-4093,-1,-1,-1,-3 

841,-1,-1 
IF    1BB0    DATA   -1,-3841,0  © 
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Commodore  Bootstrapping 


Jim  Butterfield,  Associate  Editor 


Large  programs  are  often  divided  into 
several  parts  and  started  up  by  a 
separate  program  called  a  bootstrap. 
This  article  explains  how  the  tech- 
nique works  and  provides  a  simple 
demonstration.  The  demo  programs 
run  on  the  Commodore  64,  VIC-20, 
16,  Plus/4,  J28  (in  64  mode),  and 
PET/CBM,  and  require  a  disk  drive. 


Many  complex  programs — espe- 
cially commercial  software  pack- 
ages— appear  on  disk  or  tape  as  a 
collection  of  files.  The  program  is 
broken  into  several  pieces,  and 
each  file  is  one  of  the  pieces.  It's  the 
job  of  a  bootstrap  program  (often 
called  a  boot)  to  put  all  these  pieces 
together.  This  makes  your  job  easier: 
Just  load  the  boot  program  and  en- 
ter RUN.  The  boot  brings  in  the 
other  programs  and  gets  everything 
going  for  you. 

When  you  see  a  cluster  of  pro- 
grams with  similar  names  on  a  disk, 
look  for  one  with  BOOT  in  the 
name.  That's  the  one  to  load  and 
run.  For  instance,  you  might  see 
these  filenames  in  a  disk  directory: 

GAME.BOOT 

-l-GAME.SCREEN 

-l-GAME.MUSIC 

-hGAME.SPRITES 

-i-GAME.ML 

-l-GAME.MAIN 

In  this  case,  you  run 
GAME.BOOT.  The  boot  loads  each 
of  the  remaining  files  in  turn: 
+  GAME.SCREEN,  which  contains 
a  drawing  of  a  high-resolution 
screen;  -h  GAME. MUSIC,  a  tune 
that  plays  during  the  game; 
+GAME. SPRITES,  which  contains 
pictures    of    moving    objects; 


-f  GAME. ML,  a  machine  language 
routine  used  by  the  main  program; 
and  finally,  +GAME.MAIN,  which 
is  the  actual  game  program.  When 
the  bootstrap  program  has  finished 
its  job,  often  it  erases  itself  from 
memory. 

Notice  in  the  above  example 
how  all  the  filenames  other  than 
the  bootstrap  start  with  a  nonalpha- 
betic  character.  The  computer 
doesn't  care  what  the  filenames 
look  like;  the  symbols  are  a  signal 
to  you,  the  human  part  of  the  sys- 
tem, that  you  shouldn't  load  these 
programs  directly. 

In  other  cases,  you  don't  get 
any  hints  from  the  filenames.  The 
word  BOOT  doesn't  appear  in  any 
filename,  and  the  names  are  not 
distinguished  by  any  special  sym- 
bols. With  a  commercial  program, 
you  could  try  LOAD  "*",8,1  to  see 
if  this  starts  a  bootstrap  sequence.  If 
all  else  fails,  you  may  have  to  try 
desperate  measures:  Read  the 
instructions, 

A  Little  History 

Early  computers  had  no  Read  Only 
Memory.  The  marvelous  ROM  that 
computers  now  use  to  store 
"canned"  instructions  didn't  exist. 
When  the  computer  was  turned  on, 
it  knew  nothing — not  even  how  to 
load  a  program.  Thus,  early 
computer  users  were  faced  with  a 
chicken-and-egg  paradox:  In  order 
to  load  a  program,  they  needed  a 
program  in  the  computer  that  told  it 
how  to  load.  How  did  they  get  this 
first  program  in?  Sometimes  toggle 
switches  were  used  to  enter  indi- 
vidual bytes.  Sometimes  the  com- 


puter could  read  a  punched  card 
and  transfer  a  tiny  program  from 
the  card  into  its  memory. 

Whatever  the  method,  one 
thing  was  certain:  The  first  program 
would  be  very  small,  containing 
just  enough  instructions  to  do  the 
simplest  possible  loading  job.  And 
the  first  program  to  be  loaded 
would  usually  be  a  bigger  and  bet- 
ter loading  program.  You  had  to 
start  with  a  tiny  loading  program 
whose  job  was  to  bring  in  a  bigger 
loading  program.  It  seemed  as 
though  the  computer  was  coming 
into  action  by  pulling  itself  up  "by 
its  own  bootstraps,"  And  the  term 
bootstrap  came  to  signify  any  pro- 
gram whose  job  is  to  bring  in  a 
larger  program. 

Once  you  open  the  door  to 
program-loading  programs,  new 
possibilities  arise.  For  example,  a 
bootstrap  program  can  bring  in  sev- 
eral disconnected  modules,  each  of 
a  different  type  (a  screen,  a  main 
BASIC  program,  a  machine  lan- 
guage routine,  and  so  on).  Since  the 
modules  may  load  into  different 
memory  areas,  it's  usually  far  easier 
to  create  them  as  separate  files  rath- 
er than  paste  them  into  one  big 
package  that  loads  as  a  single  file. 

A  bootstrap  program  can  also 
reconfigure  the  computer.  To  make 
room  for  a  high-resolution  graphics 
screen  or  extra  sprite  definitions, 
you  may  need  to  change  the  loca- 
tions where  BASIC  starts  and  ends. 
The  boot  program  can  reconfigure 
BASIC  memory,  then  load  the  main 
BASIC  program  into  the  newly  de- 
fined area. 

The  bootstrap  can  make 
changes  to  allow  for  a  particular 
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model  of  computer.  If  the  boot  pro- 
gram finds  it  is  running  in  an  80- 
column  machine,  it  might  decide  to 
load  an  80-column  program  mod- 
ule instead  of  the  40-column  one. 
Or,  the  boot  could  let  the  user  de- 
cide what  modules  to  load,  depend- 
ing on  what  peripherals  are  in  use. 
Thus,  the  program  might  ask  if  the 
user  has  a  color  or  black-and-white 
monitor,  or  call  for  the  identity  of 
any  printer  that  is  connected. 

Writing  A  Simple  Boot 

Let's  write  a  small  program  that 
uses  a  bootstrap  technique.  We'll 
make  the  program  do  a  simple  task: 
read  a  sequential  file  from  disk.  If 
you  don't  happen  to  have  a  sequen- 
tial file  on  disk,  you  can  create  a 
short  one  called  XFILE  by  typing 
the  following  statements  in  direct 
mode  (without  a  line  number). 

OPEN  a,8,8, "0!XFILE,S,W" 
PRINTtS, "HELLO  THERE" 
P  RI NT#  8 , " GOODBYE  NOW " 
CLOSE  8 

Now  for  the  program  itself. 
Here's  the  plan:  We'll  put  a  main 
program  in  BASIC'S  usual  memory 
area.  In  another  area  (the  cassette 
buffer),  we'll  put  a  machine  lan- 
guage (ML)  routine  that  reads  the 
file  quickly  and  displays  it  on  the 
screen.  Finally,  we'll  need  a  boot- 
strap program  to  install  the  other 
two  modules.  We'll  be  using  several 
advanced  techniques,  including 
machine  language  programming, 
program  overlays,  and  dynamic 
keyboard.  If  you  haven't  seen  them 
before,  don't  worry.  There's  no 
space  here  to  explain  the  tech- 
niques in  detail,  but  you  can  still 
run  the  programs  and  enjoy  the 
view. 

First  you  need  to  put  an  ML 
routine  on  disk.  The  following  pro- 
gram is  not  an  ML  routine  itself,  but 
a  generator  program  that  creates 
one  for  you.  Type  in  and  save  the 
program,  then  run  it.  (Be  sure  to  type 
the  semicolon  at  the  end  of  line  220.) 
This  program  puts  a  short  machine 
language  program  named  "-I-ML" 
on  your  disk.  If  the  computer  prints 
*•  ERROR  **,  you've  made  a  typing 
mistake  in  the  DATA  statements. 
After  you  correct  the  error  in  the 
generator  program  and  resave  it, 
scratch  the  incorrect  ML  file  by  typ- 
ing  OPEN    15,8,15,"S0:  +  ML": 


CLOSE  15.  Then  reload  the  genera- 
tor program  and  run  it  again. 

If  you  have  a  Commodore  128, 

you  can  type  in  and  save  the  pro- 
grams in  128  mode,  but  before  run- 
ning the  boot  you  must  switch  to  64 
mode  as  explained  below.  The  val- 
ue of  144  in  line  150  is  correct  for 
the  VIC-20,  Commodore  64  (and 
128  in  64  mode),  16,  and  Plus/4.  It 
needs  fixing  for  the  PET/CBM,  but 
we'll  let  the  boot  program  do  that. 


100 

DATA  60,3 

110 

DATA  162,1 

120 

DATA  32,198,2  55 

130 

DATA  32,228,255 

140 

DATA  32,210,255 

150 

DATA  166,144 

160 

DATA  240,246 

170 

DATA  76,204,255 

180 

OPEN  4,8,4, "0:+HL,P,W" 

190 

FOR  J=l  TO  20 

200 

READ  X 

210 

T=T+X 

220 

PRINT#4,CHR${X) ; 

230 

NEXT  J 

240 

CLOSE  4 

250 

IF  TO3054  THEN  PRINT  "** 

{SPACE} ERROR  **" 

Creating  Ttie  Main 
Program 

The  BASIC  program  is  quite 
straightforward.  Type  NEW  and 
enter: 

100  PRINT  "NAME  OF  SEQUENTIAL 

(SPACE) FILE" :INPUTN$ 
110  OPEN  1,8,2,N$ 
120  SYS  8  28 
130  CLOSEl 

Now  save  this  program  by  typ- 
ing SAVE  "0:  +  BASIC",8  so  that 
the  boot  program  can  call  it  up 
when  needed.  Do  not  try  to  run  this 
program  yet.  First  we  have  to  put  the 
machine  language  routine  it  uses 
into  memory. 

Creating  Tlie  Bootstrap 

Type  NEW  again.  Since  the  boot 
program  varies  slightly  depending 
on  the  computer,  we'll  take  care  of 
the  differences  in  the  first  line  of  the 
program.  Enter  line  100  as  listed 
below  for  your  computer. 

For  the  64  and  VIC-20  (or  128 
in  64  mode): 

100    DATA    144,198,631 

For  the  Commodore  16  or 
Plus/4: 

100    DATA    144,239,1319 

For  the  PET/CBM: 

100    DATA    150,158,623 


The  three  values  in  line  100 
represent  the  memory  locations  of 
the  computer's  status  variable  (ST), 
keyboard  buffer  counter,  and  key- 
board buffer,  respectively.  The  first 
value  adjusts  the  ML  program  to 
work  on  different  machines.  The 
other  two  are  used  to  load  the  main 
BASIC  program  with  the  dynamic 
keyboard  technique.  After  you  en- 
ter line  100,  type  in  the  following 
lines  as  well: 

110  IF  X=l  GOTO  200 

120  X=l 

130  L0AD"+HL",8,1 

140  STOP 

We're  using  a  program  overlay 
technique  here.  The  computer  nev- 
er reaches  line  140,  since  the  boot 
program  restarts  at  its  first  state- 
ment with  all  variable  values  intact 
after  the  LOAD  in  line  130.  Since 
the  variable  X  equals  1  on  the  sec- 
ond pass,  the  computer  leaps  ahead 
to  the  rest  of  the  program  at  line 
200.  The  technique  is  called  pro- 
gram overlay  because  it  was  de- 
signed to  allow  a  second  BASIC 
program  to  be  loaded  over  an  exist- 
ing program  while  maintaining 
variable  values.  Whenever  a  LOAD 
command  is  executed  within  a  pro- 
gram, whatever  BASIC  program  is 
in  memory  after  the  LOAD  is  fin- 
ished will  begin  running  at  its  first 
line.  We're  not  actually  using  an 
overlay  here,  since  the  machine 
language  program  doesn't  over- 
write the  BASIC  boot  program  in 
memory,  hence  the  need  for  using 
X  to  skip  the  LOAD  on  the  second 
pass.  Without  it,  the  program 
would  do  nothing  but  LOAD  again 
and  again. 

Now  enter  the  following  lines, 
which  adjust  the  ML  program  to 
run  on  different  machines. 

200    READ    A,B,C 
210    POKE    840, A 

Loading  the  ML  required  a 
special  overlay  technique.  Loading 
the  BASIC  program  is  even  trickier. 
Since  BASIC  programs  normally 
load  into  the  same  space,  the  new 
program  will  destroy  the  bootstrap 
as  it  comes  in.  There  are  several 
ways  we  can  cope  with  this.  Per- 
haps the  easiest  is  to  use  the  dy- 
namic keyboard  technique.  Here 
goes: 

220    DS=CHR$(17) 
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230    RS=CHR${147)+DS+D5+D$+"LOA 

D-  ^ 

240    N$=CHR$(34)+"-4-BASIC"+CHR$( 

34) 
250    PRINT    R$+N$+",8"+D$+D5 
260    PRINT    D5+D?+"RUN"+CHR5(19) 
270    POKE    B, 2 1  POKE    C,13:P0KE    C+ 

1,13 

If  you've  never  used  the  dy- 
namic keyboard  technique,  the 
above  Hnes  may  look  confusing. 
Briefly,  we  are  telling  the  computer 
to  type  two  commands  on  the 
screen  for  us.  You'll  see  the  com- 
mands when  the  program  runs: 

LOAD  "-^BASIC",8 
RUN 

The  commands  are  carefully 
arranged  on  lines  3  and  8  of  the 
screen.  If  you  pressed  RETURN 
twice — assuming  the  cursor  was  in 
the  right  place — the  commands 
would  execute,  loading  and  run- 
ning the  program  named  +  BASIC. 
But  the  boot  program  can  press  RE- 
TURN for  us  by  putting  RETURN 
characters,  CHR$(13),  into  the  key- 
board buffer.  This  is  a  familiar  trick 
for  making  Commodore  computers 
do  things  that  would  otherwise  be 
difficult. 

Our  bootstrap  program  is  com- 
plete. Save  it  on  disk  with  the  name 
BOOT,  Be  sure  to  save  a  copy  of  the 
program  before  you  run  it,  since  it 
erases  itself  from  memory  after  per- 
forming its  work.  (Users  of  the  128 
must  switch  to  64  mode  before  run- 
ning the  program.  Type  G064  and 
then  enter  Y  at  the  prompt.)  You 
should  now  have  the  following  files 
on  your  disk: 

BOOT  (the  boot  program  you  just  entered) 

+  ML 

-l-BASIC 

The  sequential  file  you  wish  to  read  (XFILE, 
for  example) 

When  you  run  the  boot  pro- 
gram, it  loads  in  the  ML  and  BASIC 
modules  and  starts  things  up. 
You'll  be  asked  for  a  filename  (en- 
ter XFILE  if  you  created  the  sample 
file  as  shown  above).  After  the  pro- 
gram is  finished,  you  can  look  at 
another  file  without  using  the  boot 
again.  Since  everything's  in  place, 
just  enter  RUN, 

This  simple  demonstration 
only  hints  at  what  a  bootstrap  pro- 
gram can  do.  The  small  but  mighty 
bootstrap  can  call  together  many 
program  elements  to  create  an  ele- 
gant and  effective  software 
package.  © 
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Atari  Animation 
With  P/M  Graphics 


Here's  an  easy-to-grasp  explanation 
of  how  to  use  the  Atari  computer's 
built-in  system  for  advanced  graphics 
animation.  This  month,  Part  J  takes 
you  step  by  step  through  the  funda- 
mentals of  setting  up  player /missile 
graphics  in  BASIC.  It's  intended  for 
those  with  an  intermediate  knowledge 
of  BASIC  programming. 


One  of  the  reasons  you  probably- 
bought  an  Atari  computer  was  for 
its  fine  graphics  capabilities.  By 
now,  maybe  you've  tried  to  write 
some  programs  with  graphics  and 
discovered  that  it  takes  consider- 
able work  to  achieve  the  special 
effects  you've  admired  in  commer- 
cial software.  Smooth  animation 
seems  impossible  with  ordinary 
character  graphics,  and  moving  any 
object  across  the  screen  using 
BASIC  is  difficult  and  often  disap- 
pointingly slow. 

The  alternative  is  that  mysteri- 
ous Atari  feature  known  as  player/ 
missile  graphics.  With  P/M  graph- 
ics, you  can  create  shapes  in  any 
color  and  move  them  smoothly 
around  the  screen  with  relative 
ease.  You  can  simulate  three- 
dimensional  movement  by  making 
some  shapes  pass  over  or  beneath 
other  shapes  and  the  screen  back- 
ground. You  can  even  detect  when 
a  shape  has  collided  with  another 
shape  or  with  anything  else  on  the 
screen,  P/M  graphics  is  the  key  to 
sophisticated  animation  on  Atari 
computers. 

Unfortunately,  too  many  peo- 
ple are  intimidated  by  P/M  graph- 
ics. Although  it  isn't  the  Atari's 
easiest  to  use  feature,  it  isn't  the 
most  difficult,  either.  The  mystery 
surrounding  P/M  graphics  started 
soon  after  the  original  Atari  400 
and    800    computers    were    intro- 


Part  1 

Robert  J.  Powell 

duced  in  1979.  It  was  obvious  from 
early  commercial  games  like  Star 
Raiders  that  some  innovative 
graphics  were  involved,  but  Atari 
didn't  even  mention  the  feature  in 
any  of  its  manuals.  Indeed,  the  first 
explanation  of  how  P/M  graphics 
works  didn't  appear  until  January 
1981,  when  Atari  programmer  Chris 
Crawford  wrote  an  article  entitled 
"Player/Missile  Graphics  with  the 
Atari  Personal  Computer  System," 
which  appeared  in  COMPUTE!.  Until 
then,  most  programmers  were  in 
the  dark. 

A  number  of  magazine  articles 
and  books  followed,  most  notably 
De  Re  Atari  by  Crawford  and  his 
colleagues  at  Atari.  But  since  the 
latest  generation  of  Atari  XL  and  XE 
owners  has  missed  all  this  history, 
it's  time  for  another  look  at  P/M 
graphics  and  how  it  can  help  you 
add  the  professional  touch  to  your 
programs. 

A  Layer  Of  Cellophane 

First  of  all,  P/M  graphics  isn't  part 
of  BASIC;  there  aren't  even  any 
Atari  BASIC  commands  or  keywords 
for  handling  P/M  graphics.  In- 
stead, P/M  graphics  is  built  into  the 
hardware  of  the  computer,  specifi- 
cally the  dedicated  graphics  chips 
unique  to  the  Atari,  Therefore,  all 
P/M  manipulation  in  BASIC  must 
be  done  with  PEEK  and  POKE 
statements. 

A  good  way  to  think  of  P/M 
graphics  is  as  a  second  video  image 
overlapped  onto  the  regular  scree.n, 
like  a  layer  of  colored  cellophane. 
That's  why  P/M  objects  can  seem 
to  travel  over  or  behind  other 
screen  objects  without  erasing  or 
disturbing  them. 

This  system  is  known  as  sprite 
graphics  on  most  other  computers, 
such  as  the  Commodore  64  and  TI- 
99/4A,  On  these  machines,  each 


movable  object  is  called  a  sprite;  the 
Commodore  can  display  up  to  eight 
at  a  time  Vidthout  special  tricks,  and 
the  TI  can  display  up  to  32.  Atari 
P/M  graphics,  an  earlier  system, 
consists  of  eight  movable  objects, 
but  they're  a  little  different  than 
sprites.  On  the  64  and  TI,  sprites  are 
all  the  same  size  and  are  roughly 
square  (although  they  can  be  rede- 
fined as  any  shape,  of  course).  On 
the  Atari,  there  are  four  full -sized 
objects  called  players  and  four  min- 
iature objects  called  missiles.  If  you 
want,  the  four  missiles  can  be 
grouped  together  to  form  a  fifth 
player.  And  instead  of  being 
square,  players  and  missiles  are 
narrow  strips  taller  than  the  height 
of  the  screen. 

If  you've  never  seen  these 
strips,  don't  be  surprised.  Most  pro- 
grams that  use  P/M  graphics  ren- 
der all  but  a  small  part  of  the  strip 
invisible  on  the  screen.  The  small 
visible  part  is  the  player  or  missile 
object  you  actually  see.  Its  shape  is 
determined  by  numbers  POKEd  by 
the  program  into  a  section  of  mem- 
ory called  P/M  graphics  memory.  It's 
up  to  your  program  to  set  aside  and 
protect  this  memory  when  it  runs. 
When  your  program  fills  this  mem- 
ory with  zeros,  the  whole  P/M  strip 
becomes  invisible.  By  POKEing  a 
few  nonzero  numbers  into  P/M 
memory,  your  program  defines  the 
shape  of  the  visible  part  of  the  strip. 
This  shape  could  be  an  alien,  a 
spaceship,  a  cursor  for  a  spread- 
sheet, or  almost  anything  you  want. 

In  P/M  memory,  each  player 
strip  is  eight  bits  (one  byte)  wide, 
and  each  missile  strip  is  two  bits 
wide.  (That's  why  grouping  togeth- 
er the  four  two-bit  missiles  results 
in  a  fifth  player.)  All  the  strips  are 
either  128  or  256  bytes  tall  (as  de- 
scribed below)  and  extend  off  the 
visible  screen  in  both  directions. 
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Later,  we'll  explain  how  to  deter- 
mine which  numbers  to  POKE  to 
redefine  the  strips  into  your  own 
shapes. 

P/M  Memory 

Once  defined,  players  and  missiles 
can  appear  in  any  graphics  or  text 
mode  and  can  be  quickly  moved 
about  the  screen  without  affecting 
the  background  graphics  or  text. 
Each  player  can  be  a  different  color, 
and  P/M  colors  can  be  different 
than  the  regular  screen  colors — 
thus  allowing  more  simultaneous 
colors  than  are  normally  available. 
With  a  few  PEEKs,  you  can  check 
for  collisions  between  players, 
players  and  missiles,  and  players 
and  screen  objects  {including  char- 
acters). Before  creating  a  player, 
let's  take  a  look  at  how  P/M  memo- 
ry is  organized. 

Your  program  must  set  up 
P/M  memory  to  store  the  shape 
data  for  players.  The  amount  of 
memory  you  set  aside  depends  on 
the  degree  of  P/M  resolution  de- 
sired. Two  resolutions  are  avail- 
able: single  scan-line  and  double 
scan-line  (a  scan-line  is  the  thinnest 
horizontal  line  visible  on  your  vid- 
eo screen).  Single-line  resolution 
allows  more  detailed  shapes  but  re- 
quires twice  as  much  P/M  memory. 
A  single-line  player  is  256  bytes  tall 
and  a  double-line  player  is  128 
bytes  tall.  Single-line  resolution  re- 
quires a  total  of  2K,  or  2,048  bytes; 
double-line  resolution  requires  a  to- 
tal of  IK,  or  1,024  bytes. 

To  protect  P/M  memory  against 
intrusions,  it's  generally  estab- 
lished near  the  top  of  user  RAM  just 
below  screen  memory.  Another  re- 
quirement is  that  P/M  memory 
must  start  on  an  address  that  is  a 
multiple  of  eight  pages  (2K)  for 
single-line  resolution  or  a  multiple 
of  four  pages  (IK)  for  double-line 
resoludon.  {A  memory  page  equals 
256  bytes.) 

The  accompanying  figure 
shows  a  map  of  P/M  memory.  By 
custom,  the  starting  address  of  P/M 
memory  is  assigned  to  the  variable 
PMBASE,  Since  the  exact  memory 
address  of  PMBASE  varies  accord- 
ing to  how  much  RAM  is  in  the 
computer,  which  graphics  mode 
you're  using,  and  other  factors,  the 
map  shows  all  other  addresses  as 
reladve  offsets  from  PMBASE,  For 


single-line  resolution,  the  missile 
data  area  occupies  256  bytes  start- 
ing at  PMBASE -I- 768.  Player  data 
starts  at  PMBASE +  1024  and  re- 
quires 256  bytes  for  each  player 
(numbered  0  through  3).  For  double- 
line  resolution,  all  these  offsets 
would  be  halved,  since  only  half  as 
much  memory  is  required.  Missile 
data  would  start  at  PMBASE -t- 384 
and  player  data  would  start  at 
PMBASE -h  5 12. 

A  Bunch  Of  POKEs 

For  an  example,  let's  write  a  pro- 
gram to  set  up  single-line  resolution 
P/M  graphics.  This  requires  a 
bunch  of  POKEs  which  may  look 
confusing.  Even  if  you  don't  fully 
understand  the  purpose  of  the 
POKEs,  however,  you  can  still  use 
them  in  your  programs. 

First,  you  have  to  determine 
the  number  of  memory  pages  to  the 
starting  address  of  P/M  memory, 
or  PMBASE.  To  do  this,  you  use  a 
memory  address  called  RAMTOP. 
Logically  enough,  RAMTOP  stores 
the  address  of  the  top  of  available 
RAM,  That  is,  the  computer  looks 
at  RAMTOP  to  calculate  how  much 
free  memory  is  available  and  won't 
let  BASIC  use  any  memory  above 
RAMTOP,  By  POKEing  a  lower 
value  into  RAMTOP,  you  can  make 
the  computer  think  there  is  less 
RAM  and  therefore  free  up  some 
memory  above  RAMTOP  (just  as 
lowering  your  ceiling  would  create 
more  room  in  your  attic).  The  extra 
RAM  freed  up  by  this  method  is 
ideal  for  P/M  memory  because  it's 
relatively  safe  from  interference. 

The  value  stored  in  RAMTOP 
is  the  number  of  memory  pages 
available.  How  far  should  you  low- 
er RAMTOP?  Remember  that  IK  is 
required  for  double-line  resolution 
P/M  graphics  and  2K  is  required  for 
single-line  resolution  P/M  graph- 
ics. Since  we're  using  single-line 
resolution  in  our  example,  we  need 
to  protect  2K  (2,048  bytes)  for  P/M 
memory.  That  means  we  must  sub- 
tract eight  pages  from  the  value  in 
RAMTOP  (8*256  =  2,048).  The  ad- 
dress for  RAMTOP  is  106  decimal, 
so  the  statement  looks  like  this; 

10  POKE  106,PEEK(106)-8 

Second,  you  must  store  this 
new  page  number  for  RAMTOP  in 
the  P/M  base  register  at  memory 


location  54279: 

20  POKE  54279,FEEK(106) 

Third,  select  your  graphics 
mode  with  the  usual  GRAPHICS 
statement,  then  establish  the  actual 
starting  address  for  PMBASE,  Let's 
stick  with  ordinary  text  mode  and 
make  the  screen  background  black 
for  maximum  contrast: 

30  GRAPHICS  0:SETCOiOR  2,0,0 
40  PMBASE  =  PEEK(106)*2S6 

Finally,  two  more  POKEs  are 
required  to  enable  the  Direct  Memo- 
ry  Access  control  register  (559  deci- 
mal) and  another  address  which 
turns  on  P/M  graphics  (53277 
decimal): 

50  POKE  559,62 
60  POKE  53277,3 

(Note  that  for  double-line  P/M  res- 
olution, line  50  would  be  POKE 
559,46.) 

P/M  graphics  memory  is  now 
set  up  and  activated.  Before  you  can 
run  the  program  and  actually  see 
the  players,  though,  you  have  to 
define  some  shape  data,  assign  col- 
ors, and  position  them  on  the  visi- 
ble part  of  the  screen.  These  tasks 
require  a  few  additional  POKEs, 

Revealing  The  Strips 

Let's  assign  the  colors  first.  There 
aren't  any  BASIC  statements  like 
COLOR  or  SETCOLOR  for  P/M 
graphics,  so  you  have  to  POKE 
color  values  into  certain  memory 
locations  instead.  Each  of  the  four 
players  has  its  own  color  location, 
or  player  color  register.  These  mem- 
ory locations  are  704  for  player  0, 
705  for  player  1,  706  for  player  2, 
and  707  for  player  3.  (Incidentally, 
the  missiles  lack  independent  color 
control,  so  missile  0  takes  the  same 
color  as  player  0,  missile  1  takes  the 
same  color  as  player  1,  etc.) 

To  determine  which  number  to 
POKE  into  the  player  color  regis- 
ters, consult  the  accompanying  ta- 
ble of  Atari  color  numbers  and  use 
this  formula: 

Atari  Color  Numbers 


0  Gray 

1  Gold 

2  Orange 

3  Red-orange 

4  Pink 

5  Purple 

6  Red-orange 

7  Blue 


S  Blue 

9  Light  blue 

10  Turquoise 

11  Green-blue 

12  Green 

13  Yellow-green 

14  Orange-green 

15  Light  orange 
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P/M  color 
luminance 


color  number  •  16  + 


Lummance  means  brightness; 
this  should  be  an  even  number 
from  0  to  14.  To  make  player  0 
appear  medium  pink,  you  could 
POKE  704,72  (72=4*16+8).  To 
make  player  3  appear  dark  green, 
POKE  707,13*16+4.  (The  exact 
hue  may  vary  according  to  how 
your  TV  or  monitor  is  adjusted.)  For 
our  example  program,  we'll  make 
the  players  red,  green,  light  blue, 
and  dark  blue: 

70  POKE  704,68:FOKE  705,198:POKE 
706,168:POKE  707,148 

Next,  we  want  to  make  sure 
the  player  strips  are  positioned 
where  we  can  see  them.  In  addition 
to  a  color  register,  each  player  also 


is  controlled  by  a  horizontal  position 
register.  This  is  a  memory  address 
that  determines  each  player's  hori- 
zontal location.  The  registers  are 
53248  for  player  0,  53249  for  player 
1,  53250  for  player  2,  and  53251  for 
player  3.  You  can  POKE  any  value 
into  these  registers  from  0  to  255; 
lower  values  position  the  player  to 
the  left,  and  higher  values  position 
the  player  to  the  right.  However, 
values  less  than  45  begin  moving 
the  player  off  the  left  edge  of  the 
visible  screen,  and  values  greater 
than  205  begin  moving  the  player 
off  the  right  edge  of  the  screen. 
For  this  example,  let's  group  all 
four  players  together  near  the  right 
edge  of  the  screen; 

80  POKE  53248,160:POKE  53249,170: 


P/M  Graphics  Memory  Map 
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POKE  53250,180:POKE  53251,190 

Finally,  to  make  the  player 
strips  visible,  we  must  fill  P/M 
memory  with  shape  data.  For  now, 
let's  not  worry  about  creating  a  fan- 
cy shape  such  as  a  spaceship.  In- 
stead, we'll  reveal  the  players  as 
they  really  are  by  completely  filling 
P/M  memory  with  255: 

90  FOR  X  =  PMBASE +  1024  TO 
PMBASE +  2048:POKE  X,255: 
NEXT  X 

Now  run  the  program.  In  a  few 
seconds,  you'll  see  the  four  player 
strips  appear  on  screen  as  line  90 
fills  P/M  memory  with  the  shape 
data. 

A  Few  Experiments 

After  the  program  stops,  the 
READY  prompt  reappears  and  the 
four  players  remain  on  the  screen. 
This  is  an  ideal  time  to  observe  how 
P/M  graphics  works.  Try  these 
experiments: 

•  Type  LIST.  Notice  how  the 
program  listing  on  the  screen  over- 
laps the  players. 

•  Press  SHIFT-CLEAR  or 
CTRL-CLEAR.  This  clears  the  pro- 
gram listing  off  the  screen  but 
leaves  the  players  undisturbed. 
P/M  graphics,  remember,  are  inde- 
pendent of  regular  screen  graphics 
and  text. 

•  In  direct  mode  (without  a  line 
number),  change  the  color  of  player 
0  by  POKEing  a  different  value  into 
the  player  0  color  register — for  ex- 
ample, POKE  704,250.  Also  change 
the  colors  of  players  1,  2,  and  3  by 
POKEing  color  registers  705,  706, 
and  707. 

•  In  direct  mode,  relocate  play- 
er 0  to  the  left  side  of  the  screen  by 
POKEing  a  lower  value  into  the 
player  0  horizontal  position  regis- 
ter—say, POKE  53248,60.  Relocate 
the  other  players,  too,  by  POKEing 
their  horizontal  registers.  Make  a 
player  disappear  from  the  visible 
screen  by  PCDKEing  a  value  from  0 
to  45  or  205  to  255.  Try  stacking 
two  players  atop  each  other  by 
POKEing  the  same  value  into  their 
horizontal  registers,  and  observe 
which  one  has  display  priority. 

Next  month,  we'll  show  addi- 
tional ways  to  manipulate  P/M 
graphics  and  also  how  to  transform 
the  player  strip  into  a  shape  of  your 
own  design.  © 
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All  About 
IBM  Batch  Files 

Part  1 


IBM  batch  programs  provide  a 
convenient  way  to  carry  out  a  series  of 
DOS  (Disk  Operating  System)  com- 
mands at  once.  This  month  we'll 
cover  some  batch  programming  fun- 
damentals. Part  1  will  show  how  to 
add  multiple-option  menus,  color, 
and  graphic  displays  to  batch 
programs. 

In  IBM  parlance  a  batch  program  is 
simply  a  disk  file  containing  a  series 
(batch)  of  DOS  commands.  The 
batch  file  executes  these  commands 
in  sequence,  just  as  if  you  manually 
typed  them  yourself.  Batch  files  are 
identified  with  the  .BAT  filename 
extension.  The  most  familiar  ex- 
ample of  a  batch  program  is 
AUTOEXEC.BAT,  used  to  issue 
startup  commands  to  configure  the 
system  to  your  liking.  Here's  what  a 
typical  AUTOEXEC.BAT  file  might 
contain: 

MODE  CO80 

DATE 

TIME 

CHKDSK 

BASICA  MENU 

The  first  four  commands  in  this 
batch  file  are  familiar  DOS  com- 
mands to  set  the  display  mode  to  80 
columns,  let  you  input  the  date  and 
time,  and  analyze  the  disk  directo- 
ry. (Note  that  if  the  AUTOEXEC- 
.BAT file  doesn't  include  DATE  and 
TIME,  the  system  doesn't  ask  lor 
date  and  time  inputs  when  it  boots.) 
The  last  command  activates 
BASICA,  then  loads   and  runs  a 
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BASIC  program  named  MENU.  A 
file  named  AUTOEXEC.BAT  differs 
from  other  batch  files  only  in  that  it 
runs  automatically  when  you  turn 
on  the  system. 

To  run  a  batch  program  that 
doesn't  automatically  run,  simply 
enter  the '  filename  at  the  DOS 
prompt  (you  can  leave  off  the  .BAT 
extension).  This  tells  DOS  to  load 
the  batch  file  from  disk  and  carry 
out  each  of  its  commands  in  order. 
For  instance,  to  run  a  program 
named  SETUP.BAT  you  would 
type  SETUP  after  the  DOS  prompt 
and  press  Enter. 

This  article  presents  several  ex- 
ample batch  programs.  Since  these 
are  not  BASIC  programs,  don't  try 
to  enter  them  with  the  "IBM  Auto- 
matic Proofreader."  The  DOS  man- 
ual explains  how  to  type  in  short 
batch  programs  using  the  COPY 
CON:  command  from  DOS.  How- 
ever, for  any  batch  program  longer 
than  a  few  lines,  it's  easier  to  use  a 
word  processor  or  any  text  editor 
that  creates  standard  ASCII  files. 
Most  commercial  programs  are 
suitable.  You  can  also  use  the  ED- 
LIN  program  (on  the  DOS  Supple- 
mental Programs  disk),  though  it 
lacks  the  convenient  editing  fea- 
tures of  word  processors. 

Chains  And  Parameters 

In  the  AUTOEXEC.BAT  example 
above,  the  batch  program  ends  by 
loading  BASIC  and  running  a 
BASIC  program.  A  batch  program 


can  also  end  by  returning  control  to 
DOS,  or  by  running  a  second  batch 
program  (permitting  you  to  "chain" 
two  or  more  programs  together). 
For  instance,  ending  a  batch  pro- 
gram with  SECOND  causes  the 
system  to  load  and  run  the  batch 
program  named  SECOND.BAT. 
/ou  can  also  use  COMMAND  /C 
to  run  one  batch  program  from 
within  another:  For  example, 
COMMAND  /C  SECOND  runs 
SECOND.BAT. 

Passing  parameters  (infor- 
mation) to  a  batch  program  is 
straightforward.  Simply  include  the 
needed  information  after  the  file- 
name when  running  the  program. 
For  example,  typing  FIRST  JULIA 
123  runs  the  FIRST.BAT  program 
and  passes  two  parameters  to  it;  a 
string  (JULIA)  and  a  number  (123). 
In  much  the  same  way,  one  batch 
program  can  pass  parameters  to  an- 
other. Let's  use  an  example  to  dem- 
onstrate parameter  passing  in 
chained  programs.  Enter  the  fol- 
lowing batch  program  and  save  it  to 
disk  with  the  filename  FIRST.BAT; 

ECHO  OFF 

ECHO  FIRST. SftT  USES  FIRST  P 

flRAMETER:  XI 

ECHO  PASSES  7.2    AND  7.3  ID  SE 

CQND . BAT 

REM  SECOND  X2  X3 

Now  enter  the  following  program 
and  save  it  with  the  filename 
SECOND.BAT; 

ECHO  SECOND.BAT  USES  SECOND 
PARAMETER:  XI 
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ECHO    PASSES    yjZ    TO    THIRD.  BfiT 
THIRD    7.2 

Finally,  enter  the  following  pro- 
gram and  save  it  with  the  filename 
THIRD.BAT: 

ECHO  THIRD.BAT  USES  THIRD  P 
flRAMETERl  7.1 

At  this  point  you  have  three 
batch  programs,  all  of  which  expect 
parameters.  To  run  the  programs, 
enter  FIRST  followed  by  any  three 
strings  or  numbers.  Be  sure  to 
separate  each  parameter  with  a 
space.  For  instance,  vou  might  en- 
ter FIRST  PARAM/ONE  &H464 
IBMBIO.COM.  The  FIRST.BAT 
program  takes  in  all  three  parame- 
ters, processing  the  first  (displaying 
it  in  an  ECHO  statement)  and  pass- 
ing the  other  two  when  it  runs  SEC- 
OND. SECOND.BAT  processes  the 
second  parameter  and  passes  the 
third  to  THIRD.BAT. 

As  shown  in  these  examples, 
batch  programs  use  dummy  param- 
eters (%  followed  by  a  digit  from 
0-9)  to  mark  the  spot  where  the  real 
parameter  is  expected.  When  you 
run  a  batch  program,  each  dummy 
parameter  is  replaced  by  actual  data 
in  the  order  it  is  received.  Thus,  the 
FIRST.BAT  program  above  uses  %1 
to  signify  the  first  parameter,  %2  to 
represent  second,  and  so  on.  Dum- 
my parameter  %0  can  only  be  re- 
placed by  a  drive  designator  (A  or 
B)  and  filename:  Don't  use  it  unless 
you  want  to  pass  such  information, 

Be  sure  to  keep  the  dummy 
parameter  numbers  straight  when 
chaining  batch  programs.  The  dum- 
my number  represents  the  order  in 
zuhich  that  program  receives  the  data. 
In  the  example  above,  FIRST.BAT 
received  three  parameters,  which  it 
represents  with  the  three  dummies 
%1,  %2,  and  %3.  SECOND.BAT 
receives  two  parameters,  using  %1 
to  signify  the  first  parameter  it  re- 
ceives, and  %2  to  represent  the  sec- 
ond. Likewise,  THIRD.BAT  uses 
%1  to  represent  its  single  parame- 
ter. (Note  that  THIRD.BAT  can't 
use  %3  for  the  dummy.  Though 
you,  the  programmer,  may  think  of 
this  parameter  as  the  "third,"  it's 
the  first  one  that  THIRD.BAT 
receives.) 

Batch  Commands 

In  addition  to  ordinary  DOS  com- 
mands, a  batch  program  may  in- 


clude the  following  special  batch 
commands:  ECHO,  FOR,  GOTO, 
IF,  SHIFT,  PAUSE,  and  REM. 
ECHO  ON  causes  DOS  commands 
to  be  displayed  as  they're  per- 
formed in  a  batch  program;  ECHO 
OFF  turns  off  the  display.  As  you 
saw  above,  ECHO  can  also  display 
messages.  GOTO  is  discussed  in 
Part  2  of  this  article.  REM  lets  you 
include  remarks,  and  SHIFT  is  used 
when  more  than  ten  parameters  are 
passed  at  one  time. 

The  remaining  commands 
(FOR,  IF,  and  PAUSE)  permit 
loops,  conditional  tests  and  limited 
user  input.  The  short  file  copying 
program  listed  below  demonstrates 
all  three  of  these  commands.  Enter 
the  program  as  listed,  saving  it  with 
the  filename  COPYUNQ.BAT  (or 
any  other  name  ending  in  .BAT). 

ECHO  off 

REM 

REM  name:  COPYUNQ.BAT 
REM  syntax:  COPYUNQ 

soLirce-dr  i  ve-1  etter 

target-drive-letter   (no 

colons) 
REM  purpose:  Only  unique  files 

are  copied  from  source  to 

target  disk 
REM 

7.1: 

FOR  X7.f  in  (*.t)  DO  IF  exist 

7.2:7.-/.f  ECHO  y.7.-f  WILL  NOT  BE 

COPIED 
PAUSE  READY  TO  BEGIN  COPIES, 
FOR  XV.f  in  («.»)  DO  IF  not 

exist  7.2:7.7.f  COPY  V.l:'/.7.f  7.2: 

/V 
y.2: 

The  COPYUNQ.BAT  program 
automatically  copies  files  from  a 
source  disk  to  a  target  disk,  copying 
only  those  files  that  don't  already 
exist  on  the  target  disk.  This  en- 
sures that  existing  files  are  not  re- 
placed, an  improvement  over 
DOS's  COPY  command,  which 
would  write  over  any  like-named 
files  on  the  target  disk.  To  run  this 
program,  enter  its  name  followed 
by  the  letter  of  the  source  drive  and 
the  letter  of  the  target  drive.  Colons 
are  not  required  after  the  drive  let- 
ters. For  instance,  vou  would  enter 
COPYUNQ.BAT  A  B  when  drive  A 
holds  the  source  disk  and  drive  B 
holds  the  target  disk.  The  program 
displays  the  names  of  files  that  are 
not  copied. 


FOR  And  IF 

COPYUNQ.BAT  offers  a  good 
demonstration  of  FOR  and  IF, 
which  work  very  differently  than 
their  BASIC  equivalents.  Since  a 
FOR  statement  can't  contain  anoth- 
er FOR  statement,  you  can't  use 
nested  FOR  loops  (one  FOR  loop 
enclosed  by  another).  FOR  state- 
ments take  the  following  general 
form: 

FOR  'Mavariable  IN  (set)  DO  DOS 
command 

The  set  value  after  IN  repre- 
sents a  group  of  files  and  must  be 
some  variation  of  a  filename  and 
extension.  This  parameter  deter- 
mines which  disk  files  the  FOR 
loop  will  affect.  Since  the  pattern- 
matching  symbols  *  and  ?  can  be 
used;  you  may  define  this  group  to 
be  very  broad  or  very  selective.  The 
program  shown  above  uses  the 
statement  IN  (*.*)  to  affect  the 
broadest  possible  group:  every  file 
on  the  disk.  In  other  cases,  you 
might  use  IN  (*.BAS)  to  affect  all 
files  ending  with  .BAS,  IN  (ABC*.*) 
to  affect  all  files  starting  with  ABC, 
and  so  on. 

The  first  FOR  statement  in 
COPYUNQ.BAT  (FOR  %%f  IN 
(*.*)  DO)  affects  every  file  on  the 
disk.  As  the  FOR  loop  executes,  the 
variable  %%f  represents  each  file- 
name in  order.  Translated  into 
plain  English,  this  statement  means 
"cycle  through  every  filename  on 
the  source  disk,  using  %%f  to  rep- 
resent each  filename  in  turn." 

IF  can  perform  only  a  few  tests. 
One  of  these  (IF  EXIST  filename) 
tests  whether  a  given  file  exists  on 
the  disk.  Now  you  can  understand 
the  second  part  of  the  FOR  state- 
ment (IF  EXIST  %2:%%0.  The  %2 
parameter  is  a  dummy,  replaced  by 
the  second  drive  letter  you  entered 
when  running  the  program.  And 
the  variable  %%f  is  replaced  by 
actual  filenames  when  the  program 
runs.  In  plain  English,  this  state- 
ment means  "if  the  current  file- 
name exists  on  the  disk  in  the  target 
drive...." 

Batch  programs  don't  have  the 
equivalent  of  BASIC'S  THEN  state- 
ment (THEN  is  implied).  But  in  oth- 
er respects  IF  processing  works 
much  as  it  does  in  BASIC.  State- 
ments that  come  after  the  IF  test  (on 
the  same  line)  are  performed  when 
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the  IF  test  is  true,  and  skipped  when 
the  test  is  false.  Consequently,  in 
COPYUNQ.BAT,  the  ECHO  com- 
mand (which  prints  "filename  WILL 
NOT  BE  COPIED")  executes  only 
when  the  file  in  question  exists  on 
both  the  source  and  target  disks. 

Once  you  understand  that 
much  of  COPYUNQ.BAT,  the  rest 
is  not  hard  to  decipher.  PAUSE 
makes  the  system  stop  and  display 
the  message  "Strike  any  key  when 
ready."  This  is  the  only  batch  com- 
mand that  allows  user  input.  Unfor- 
tunately, your  choices  are  severely 
limited:  You  can  continue  only  by 
pressing  a  key  (perhaps  after 
changing  disks,  etc.)  or  end  the  pro- 
gram by  pressing  Ctrl-Break.  In 
Part  2  of  this  article,  we'll  show 
how  to  expand  this  number  of 
options. 


NOT  And  ERRORLEVEL 

The  second  FOR  line  in  COPYUNQ 
.BAT  has  a  FOR  loop  and  an  IF  test 
very  similar  to  the  first.  However, 
in  this  case  NOT  reverses  the  logic 
of  the  IF  test.  When  the  named  file 
does  not  exist  on  the  target  disk,  the 
IF  test  is  true  and  the  file  is  copied. 
In  addition  to  testing  EXIST 
(with  or  without  NOT),  IF  can  test 
two  conditions:  the  equality  symbol 
(  =  =)  and  ERRORLEVEL.  The 
equality  symbol  tests  whether  two 
strings  are  identical.  ERRORLEVEL 
is  always  a  number,  ordinarily  used 
to  pass  information  from  one  pro- 
gram to  another  (indicating  wheth- 
er the  first  worked  successfully  and 
thus  set  ERRORLEVEL  to  the  ex- 
pected value).  ERRORLEVEL  is  dis- 
cussed further  in  Part  2. 


As  shown  in  these  brief  exam- 
ples, batch  programs  can  be  very 
powerful:  IF  lets  you  pick  only  the 
files  you  want,  and  FOR  lets  you 
repeat  commands  until  the  whole 
task  is  done.  In  one  sense,  the  lack 
of  opportunity  for  user  input  is  an 
advantage:  The  entire  procedure  is 
automated,  and  you  don't  need  to 
understand  anything  except  how  to 
type  in  the  program  name.  On  the 
other  hand,  batch  programming 
can  seem  rigid,  limiting,  and  visu- 
ally quite  dull.  Part  2  improves  on 
that  situation,  offering  program  ex- 
amples and  a  routine  that  adds  col- 
orful  graphic  displays  and 
multiple-option  menu  selection  to 
batch  programs.  © 


News  &  Products 


Commodore  Memory  Expansion, 
Interface 

Cardco,  Inc.,  has  announced  S'more 
(Super  Memory  Optimized  RAM/ROM 
Expansion),  a  cartridge  utility  for  the  64 
which  allows  more  than  60 K  RAM  for 
programming  and  adds  over  60  new 
and  enhanced  BASIC  commands  and 
functions.  The  memory  increase  is  not 
restricted,  and  can  be  used  for  arrays, 
variables,  and  BASIC  programs  which 
would  normally  overload  a  Commo- 
dore 64.  S'more  provides  such  program- 
ming aids  as  CATALOG  (view  disk 
directory),  AUTO  (fine  numbering), 
FIND,  CHANGE,  TRACE,  DUMP,  KEY 
(define  function  keys),  and  others. 

Function  keys  are  preprogrammed, 
but  can  be  redefined.  For  example,  F2 
runs  the  current  program  in  memory, 
F3  reads  and  displays  the  disk  drive 
error  channel,  and  F7  displays  the  cur- 
rent disk  directory.  The  suggested  retail 
price  is  $69.95.  Cardco  also  plans  to 
introduce  the  S'more  BASIC  Compiler  for 
$39.95. 

Also  recently  introduced  is  G 
Whiz,  an  improved  version  of  Cardco's 
-l-G  printer  interface,  which  allows 
Commodore  computers  to  be  hooked 
up  to  virtually  any  Centronics  printer. 
Additional  features  include  faster  print- 
ing speed  (up  to  18  times  faster  with 
many  dot  matrix  printers),  and  in- 
creased speed  on  high-resolution 
screen  dumps.  The  interface  also  comes 
with  two  character  sets  and  open  access 


to  DIP  switches.  The  interface  attaches 

directly  to  the  parallel  port,  eliminating 

the  ribbon  connector.  Suggested  retail 

price  is  $69.95. 

Cardco,  Inc.,  300  S.  Topeka,  Wichita,  KS 

67202 
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IBM,  ST  Expert  Investment  Help 

Batteries  Included  has  introduced  the 
first  product  in  its  Integral  Solutions 
line  of  productivity  software.  The  Isgur 
Portfolio  System  was  designed  by  Lee 
Isgur,  a  well-known  Wall  Street  analyst 
and  first  vice  president  of  Paine- 
Webber,  Inc.  The  program  allows  both 
casual  and  professional  investors  to 
track  up  to  ten  portfolios,  each  with  50 
stocks  and  15  separate  holdings.  With  a 
ten-megabyte  hard  disk,  storage  capaci- 
ty jumps  to  1,000  portfolios,  with  more 
than  2,000  stocks  and  600  holdings  of 
each. 

Special  tracking  and  advisory  fea- 
tures help  determine  how  and  when  to 
raise  money,  when  to  sell  holdings,  and 
how  to  prepare  for  changes  in  the  status 
of  holdings.  Built-in  telecommunica- 
tions functions  put  the  user  online  with 
major  telecommunications  services  at 
the  touch  of  a  key  or  two. 

The  Isgur  Portfolio  System  is  avail- 
able for  the  Atari  520  ST  and  IBM  PC 
for  $249.95. 

Batteries  Included,  30  Mural  St.,  Richmond 
Hill,  Ontario,  Canada  L4B  1B5 
Circle  Reader  Service  Number  233. 


Home  Control  Package 

The  X-10  Powerhouse  interface  is  a 
freestanding  controller  for  lights,  heat- 
ing, cooling,  security  devices,  and  other 
appliances,  which  you  preset  with  your 
computer  by  following  simple  soft- 
ware-driven onscreen  icons  represent- 
ing controllers  for  each  room  of  your 
home  or  business.  Available  initially  for 
the  Apple  II  series,  the  system  is  sched- 
uled to  be  available  for  the  Commodore 
64/128  in  September  and  the  IBM 
PC/PCjr  in  October. 

The  Powerhouse  lets  you  control 
up  to  72  lights  and  appliances  plugged 
into  System  X-10  modules,  which  in 
turn  are  plugged  into  your  home's  elec- 
trical outlets.  To  program  the  Power- 
house interface,  you  use  a  joystick  to 
graphically  "install"  lights  and  appli- 
ances in  each  room  in  positions  which 
correspond  to  the  actual  locations  in 
your  own  home.  Once  programmed 
with  your  computer,  the  system  oper- 
ates independently.  X-10  modules  can 
be  purchased  at  electronics  stores.  The 
Powerhouse  interface  sells  for  approxi- 
mately $125,  while  the  appropriate 
software  and  connecting  cable  retails 
for  an  additional  $25, 
X-10  (USA),  Inc.,  185A  LeGrand  Avenue, 
Northvale,  N]  07647 
Circle  Reader  Service  Number  234. 


PlayWriter  Series  Expands 

Woodbury  Computer  Associates,  Inc., 
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has  introduced  two  new  titles  in  its 
PlayWriter  Series  of  write-your-own- 
book  learning  programs:  Mystery!,  a  de- 
tective book  for  children  nine  years  of 
age  and  older,  and  Castles  &■  Creatures, 
a  fantasy  book  for  children  eight  and 
up.  With  these  programs,  and  the  earli- 
er Tales  of  Me  and  Adventures  in  Space 
(ages  seven  to  fourteen),  children  can 
write,  illustrate,  print,  and  bind  in  hard- 
cover each  book  they  create. 

The  packages  sell  for  $39.95  each 
and  are  available  for  the  Apple  II  fam- 
ily, Commodore  64/128,  and  IBM 
PC/PCjr.  Refill  packs  and  teacher's 
manuals  are  $9.95  each.  Woodbury,  in 
association  with  Grolier  Electronic  Pub- 
lishing, will  sponsor  a  national  writing 
contest  this  fall  with  entries  handled 
through  schools  and  retailers. 
Woodbury  Computer  Associates,  Inc.,  127 
White  Oak  lane,  CN^lOOl,  Old  Bridge, 
NJ  08857 
Circle  Reader  Service  Number  235. 


IBM,  Apple-  Educational  Software 

World  Book  Discovery,  Inc.,  a  subsid- 
iary of  World  Book,  Inc.,  recently  re- 
leased its  line  of  Discovery  software  for 
Apple  He,  lie,  and  IBM  PCjr  computers. 
The  series  includes  21  programs  for 
children  ages  three  and  up. 


Discovery  software  is  divided  into 
three  categories:  Preschool  (ages  three 
to  five),  which  focuses  on  readiness 
skills  like  number  and  pattern  recogni- 
tion); primary  (ages  six  to  ten),  which 
offers  practice  in  skills  like  arithmetic, 
problem-solving  and  vocabulary-build- 
ing; and  intermediate  (ages  ten  and  up), 
which  helps  older  students  further  ex- 
pand skills  learned  earlier. 

Each  series  of  seven  programs  is 
available  for  $249.95.  Individual  pro- 
grams retail  for  $39,95. 
World  Book,  Inc.,  The  Merchandise  Mart, 
Fifth  Floor,  Chicago,  11  60654 
Circle  Reader  Service  Number  236. 


Diet,  Adventure  Programs 

Among  several  new  programs  intro- 
duced by  Bantam  Electronic  Publishing 
are  The  Complete  Scarsdale  Medical  Diet 
($39.95)  for  the  Apple  II  series  and  IBM 
PC/PCjr,  and  The  Fourth  Protocol,  a 
graphics  and  text  adventure  game 
based  on  Frederick  Forsyth's  bestselling 
novel,  for  the  Commodore  64/128 
($34.95)  and  Apple  II  series  ($39.95). 
Two  adventure  programs,  the  first 
releases  in  Bantam's  new  Choose  Your 
Own  Adventure  Software  Series,  are 
being  introduced  in  September.  Enti- 
tled Escape  and  The  Cave  of  Time,  the 
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Copv  Atari  400/800/XL  Serios  Canridg«  to  Diak 
and  run  them  from  a  Menu 


ATARI  CARTRIDGE-TO-DISK  COPY  SYSTEM  $69.95 

Supercarr  lou  you  copy  ANY  canridge  fo^■  ilw  Atari  400/800/XL  SariBs  to  dlikatle,  and  theueattBr  run  it 
ftCKTi  your  dislf  dny^.  Enjoy  ihe  conveniofice  ol  setectirig  youi  tffvorhe  games  Iram  a  "mfinu  screen" 
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programs  are  based  on  the  popular  se- 
ries of  books  published  by  Bantam 
Books,  Inc.,  the  software  division's 
owner.  They  will  be  available  for  the 
Apple  II  series  and  for  the  Comnnodore 
64/128  at  a  suggested  retail  price  of 
$34.95, 
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A  sample  screen  from  Bantam's  Ihe  Com- 
plete Scarsdale  Medical  Diet  program  for 
the  IBM  and  Apple  computers. 

Bantam  has  also  announced  its 
Micro-Workshop  Series  of  learning 
software  for  children.  The  first  three 
titles  in  the  series  are  Fantastic  Animals 
(ages  four  through  nine).  Creative  Con- 
traptions (ages  seven  and  up),  and  Road 
Rally  U.S.A.  (ages  ten  and  up).  The  em- 
phasis in  each  package  is  to  encourage 
creativity  while  teaching  basic  learning 
skills.  The  IBM  PC/PCjr  and  Apple  II- 


TRADE  IN 

To  All 
CARDCO  Printer 


Due  to  overwhelming  customer  demand  in 
response  to  the  new  G-WIZ  printer  interface, 
CARDCO  will  allow  its  registered  printer 
interface  owners  to  trade  up  to  the  G-WIZ. 

-i-G  owners  may  trade  up  to  the  new  G-WIZ 
for  $35.  A,  B,  S,  or  PS  owners  for  S40, 
Return  your  current  interface,  and  proof  of 
purchase,  with  a  check  or  money  order  for 
the  appropriate  trade-in  (plus  S3  for  shipping 
&  handling)  to: 

G-WIZ  Trade-in 


cardco,  inc. 

300  South  Topeka 
Wichita,  KS  67202 


series    versions    will    sell    for   $39.95, 
while  the  Commodore  version,  to  be 
ready  this  fall,  is  set  at  $34.95. 
Bantam  Electronic  Publishing,  666  Fifth 
Avenue,  Nezv  York,  NY  10103 
Circle  Reader  Service  Number  237. 


Fast  Apple  Disk  Drive 

The  Micro  Disk  Drive  (MDD-640),  from 
Tymac,  can  store  up  to  four  and  a  half 
times  the  information  possible  on  a 
standard  Apple  drive  and  can  retrieve 
information  up  to  93  percent  faster.  It 
can  be  used  with  Apple  II,  II +,  and  He 
computers.  Compatible  with  both  DOS 
3.3  and  ProDOS,  the  drive  uses  3V2- 
inch  disks.  Suggested  retail  pricfe  is 
$399. 

Tymac  Controls  Corporation,  127  Main 
St.,  Franklin,  NJ  07416 
Circle  Reader  Service  Number  238. 


New  Printer  Interfaces 
Telesys  Computer  Peripheral  Products 
has  announced  several  new  printer  in- 
terfaces for  Apple,  Atari,  and  Commo- 
dore computers.  For  the  Atari,  Telesys 
has  introduced  the  TurboPrint/A 
($59.95),  a  graphics  and  text  parallel 
printer  interface  which  emulates  the 
printer  interface  portion  of  the  Atari 
850  Interface  Module.  The  Turbo- 
Print/A  has  external  DIP  switch  access 
and  its  own  power  supply.  The  Turbo- 
Print/GTA  ($99.95)  is  an  advanced 
graphics  and  text  parallel  printer  inter- 
face with  optional  plug-in  16K  or  32K 
buffer  for  Atari  computers.  It  is  com- 
pletely software-compatible  with  the 
Atari  850,  prints  Atari  graphics  charac- 
ters (including  reverse  characters),  dou- 
bles the  printing  speed  of  printers 
without  onboard  memory,  and  has  ex- 
ternal DIP  switches.  The  B16  16K 
TurboBuffer  ($79.95)  and  the  B32  32K 
TurboBuffer  ($109.95)  are  available  for 
the  TurboPrint/GTA.  Both  TurboPrint 
interfaces  work  with  Atari  400,  800, 
800XL,  65XE,  and  130XE  computers. 

For  the  Commodore  64/128  and 
VIC-20  computers,  Telesys  has  intro- 
duced the  TurboPrint/C  ($49.95),  a 
text-only  parallel  printer  interface;  the 
TurboPrint/GC  ($69.95),  a  parallel  in- 
terface which  prints  Commodore 
graphics  including  reverse  characters, 
prints  four  typefaces  (normal,  expand- 
ed, compressed,  and  expanded- 
compressed  combined),  and  has 
external  DIP  switches;  and  the  Turbo- 
Print/GTC  ($89.95),  a  buffer-expandable 
parallel  interface  which  prints  en- 
hanced Commodore  graphics.  The 
TurboBuffers  mentioned  above  are 
available  for  the  GTC  at  the  same 
prices. 

For  the  Apple  He  and  11+  comput- 
ers, Telesys  has  announced  the  Turbo- 


Print/IIe  ($59.95),  which  prints  text 
with  many  popular  Centronics-type 
printers  and  graphics  with  Epson  and 
Epson-compatible  parallel  printers.  The 
TurboPrint/lIc  ($89.95)  performs  serial 
to  parallel  conversions,  has  switch- 
selectable  baud  rates,  and  is  compatible 
with  most  Centronics-type  printers.  All 
cables  required  for  installation  are  in- 
cluded with  both  interfaces. 
Telesys  Computer  Peripheral  Products, 
43334  Bryant  Street,  Fremont,  CA  9i53S 
Circle  Reader  Service  Number  239. 


Inexpensive  Daisy  Wheel  Printer 

Apropos  Technology  has  added  a  daisy 
wheel  printer  to  its  line  of  microcom- 
puter printers.  The  Aprotek  Daisy  1120 
is  equipped  with  a  standard  Centronics 
parallel  interface  and  supports  many 
type  fonts,  including  superscripts,  sub- 
scripts, underiining,  and  boldfacing.  It 
has  a  2K  buffer.  Options  include  an 
automatic  cut  sheet  feeder  ($195)  and 
tractor  feed  ($82).  The  printer  retails  for 
$364  and  has  a  one-year  warranty. 
Apropos  Technology,  1Q71-A  Avenida 
Acaso,  Camarillo,  CA  93010 
Circle  Reader  Service  Number  240. 


Productivity,  Young  Learning 
Packages 

Six  new  educational  programs  for 
youngsters  ages  four  through  six  have 
been  announced  by  Grolier  Electronic 
Publishing  for  the  Apple  II  series  and 
the  Commodore  64/128  computers  at 
$29.95  per  package.  Three  of  the  pro- 
grams— The  Story  of  Miss  Mouse,  Rhyme 
Laud,  and  First  Steps  to  Reading:  Phonics 
I  and  II — concern  reading-readiness. 
The  other  three  packages — Exploring 
Your  World:  Me  and  Others,  Exploring 
Your  World:  The  Weather,  and  Play  To- 
gether, Learn  Together — introduce  chil- 
dren to  the  concepts  of  body  parts, 
clothing,  the  weather,  and  the  world 
around  them, 

Grolier  has  also  created  two  new 
productivity  packages.  The  Information 
Connection,  a  combination  telecommu- 
nications program,  text  editor,  and  tuto- 
rial on  one  disk  for  the  Apple  II  family 
and  the  IBM  PC/PCjr  ($59.95  each) 
and  for  the  Commodore  64/128 
($39.95);  and  EduCalc,  a  spreadsheet 
designed  to  be  used  in  homes  and 
schools,  for  the  Commodore  64/128, 
Apple  II  series,  and  the  IBM  PC/PCjr 
■($49.95  home,  $59.95  school).  The  Edu- 
Calc Tetnplate,  sold  separately  for 
$19.95,  features  ten  application  tem- 
plates Preformatted  for  such  home  and 
school  applications  as  budgeting,  sci- 
ence, math,  and  sports. 
Grolier  Electronic  Publishing,  95  Madison 
Avenue,  New  York,  NY  10016 
Circle  Reader  Service  Number  241. 


Graphics  Control  for  Commodore 

Xetec  has  introduced  the  Super  Gra- 
phix,  a  graphics  interface  for  Commo- 
dore computers.  Features  include  an  8K 
buffer,  ten  printing  modes,  and  correct 
graphics/text  aspect  ratio  for  all  major 
printers.  Internal  fonts  support  super- 
scripts, subscripts,  underlining,  bold- 
facing, and  a  choice  of  nine  pitches.  The 
Super  Graphix  comes  with  a  lifetime 
warranty  and  retails  for  $99.95. 
Xetec,  Inc.,  3010  Arnold  Rd.,  Salina,  KS 
67401 
Circle  Reader  Service  Number  242. 


More  From  Mindscape 

Mindscape  has  unveiled  several  new 
programs.  The  Mist,  based  on  the 
Stephen  King  novella  of  the  same 
name,  and  A  Viezv  to  a  Kill,  based  on  the 
latest  James  Bond  movie,  are  text  ad- 
ventures. Each  is  available  for  the 
Apple  11  line,  Apple  Macintosh,  and 
IBM  PC,  and  costs  $39.95. 

Deja  Vu  is  Mindscape's  first  prod- 
uct developed  specifically  for  the  Mac- 
intosh. It  is  a  graphics/text  adventure 
in  the  style  of  an  old  1940s  Hollywood 
mystery  movie.  It  retails  for  $49.95. 

The  Luscber  Profile,  developed  in 
cooperation  with  Dr.  Max  Luscher,  pro- 
vides a  psychological  profile  of  an  indi- 
vidual based  on  his  or  her  reaction  to 
different  colors.  It  is  available  for  the 
Apple  II  line,  Macintosh,  and  IBM  PC, 
for  $39.95. 

Mindscape,   Inc.,   3444   Dundee   Road, 
Northbrook,  IL  60061 
Circle  Reader  Service  Number  243. 


Electronic  Writing  Aids 

Simon  &  Schuster  Electronic  Publish- 
ing Group  announced  several  new  titles 
at  the  Summer  Consumer  Electronics 
Show.  Among  them  is  the  Webster's 
New  World  Series,  which  includes  Web- 
ster's New  World  Spelling  Checker  (IBM 
PC/PCjr,  $59.95;  Apple  II  series, 
$49.95),  Webster's  New  World  Word  Pro- 
cessor (with  online  thesaurus  and  spell- 
ing checker;  IBM  PC/PCjr,  Apple  II 
series,  $124.95),  and  Webster's  New 
World  Electronic  Thesaurus  (IBM 
PC/PCjr,  $59.95). 

Simon  &  Schuster  also  announced 
an  interactive  adventure  based  on  the 
popular  television  series  Star  Trek. 
STAR  TREK:  The  Kobayashi  Alternative 
retails  for  $39.95,  and  is  available  for 
the  IBM  PC/PCjr,  Apple  II  series,  and 
Commodore  64. 

Simon  and  Schuster  Electronic  Publishing 
Group,  Simon  &  Schuster  Building,  1230 
Avenue  of  the  Americas,  New  York,  NY 
10020 
Circle  Reader  Service  Number  244.         © 
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Forget  Your  Algebra 


Don't  be  misled  into  thinking  that 
an  extensive  math  background  is 
necessary  to  program  computers. 
Sometimes,  it  turns  out,  too  much 
math  knowledge  confuses  things 
when  you're  learning  to  program. 

For  instance,  the  following 
statement  is  perfectly  acceptable  in 
BASIC,  but  utter  nonsense  in  math- 
ematics: X  =  X  +  Lit  would  prob- 
ably earn  you  extra  homework  in  a 
beginning  algebra  class  because 
one  of  the  first  things  they  teach 
you  is  that  one  side  of  an  equation 
must  equal  the  other. 

But  in  BASIC,  not  only  is 
X  =  X  -I-  1  valid,  so  is  X  =  X  -I-  2 
or  even  X  =  X  +  10000.  Part  of 
the  difference  is  in  the  way  that 
algebra  and  BASIC  handle  the  sym- 
bol X,  called  a  variable.  In  algebra,  a 
variable  is  an  unknown  value;  it 
represents  a  number  you're  trying 
to  discover  by  solving  the  equation. 
In  BASIC,  a  variable  is  a  method  of 
storing  a  value  that  can  change  as 
the  program  runs.  Ordinary  num- 
bers are  known  as  conslanis,  be- 
cause numbers  don't  change.  In  the 
statement  X  =  X  +  1,  the  number 
1  is  a  constant,  and  1  is  always  1. 

A  variable,  on  the  other  hand, 
is  like  a  flexible  number.  It  can 
equal  anything.  And  you  can 
change  what  it  equals  anywhere  in 
the  program.  The  statement  X  =  5, 
called  an  assignment  statement,  sets 
the  variable  X  equal  to  5.  (Actually, 
X  =  5  is  an  abbreviation  for  LET 
X  =  5.  But  the  keyword  LET  is  op- 
tional in  almost  all  modern  versions 
of  BASIC,  so  it's  rarely  used 
anymore.) 

After  a  variable  has  been  as- 
signed the  value  of  5,  the  computer 
treats  it  like  a  5  anytime  it  subse- 
quently encounters  that  variable 
when  running  the  program.  The 
advantage  of  using  a  variable  in- 
stead of  a  constant  to  represent  5  is 
that  the  variable  can  be  manipulat- 
ed in  a  number  of  ways.  Try  run- 
ning this  simple  program: 


10  X  =  5:PRINT  X:X  =  X  +  1:PRINT  X 

When  it's  done,  you  should  see 
the  numbers  5  and  6  on  the  screen, 
even  though  the  program  starts  by 
setting  X  equal  to  5.  Why?  Because 
the  third  statement — X  =  X  +  1 — 
is  another  assignment  statement 
which  adds  1  to  the  current  value  of 
X.  Since  the  current  value  happens 
to  be  5,  then  5  plus  1  equals  6.  The 
final  statement  prints  the  new 
value. 

Run  the  program  again  after 
removing  the  first  statement.  You'll 
probably  see  a  0  and  1  on  the 
screen.  That's  because  almost  all 
personal  computers  automatically 
initialize  variables  to  zero  when  the 
program  starts.  Be  aware,  however, 
that  some  larger  computers  don't 
do  this.  Instead,  the  variable  may 
contain  an  unknown,  or  garbage, 
value.  To  keep  these  garbage  values 
from  messing  up  calculations,  pro- 
grams written  for  these  computers 
usually  begin  by  initializing  all 
variables  to  zero. 

Variable  Names 

You're  not  limited  to  the  letter  X  as 
a  variable  name,  of  course.  You  can 
use  any  letter  from  A  to  Z.  Longer 
names  are  possible,  too,  and  help 
make  your  programs  easier  for  oth- 
ers (and  even  yourself)  to  under- 
stand. For  instance,  if  you  need  a 
variable  to  hold  the  sum  of  a  series 
of  numbers  added  together,  SUM  is 
more  readable  than  S. 

Different  versions  of  BASIC 
have  different  rules  for  variable 
names.  In  Commodore  and  Apple- 
soft BASIC,  variables  can  consist  of 
letters  and  numbers  but  no  sym- 
bols, as  long  as  the  first  character  is 
a  letter.  Al  is  allowed,  but  not  lA. 
Commodore  and  Apple  variables 
can  be  of  any  length,  but  only  the 
first  two  characters  are  significant. 
That  means  the  computer  looks 
only  at  the  first  two  characters  of 
the  name  to  decide  if  it's  unique. 
SUM  and  SAM  are  treated  as  differ- 


ent variables,  but  SUMl  and  SUM2 
are  not.  Watch  out  for  this,  because 
it  can  lead  to  mysterious  program- 
ming bugs. 

Also,  Commodore  and  Apple- 
soft BASIC  (and  most  other  ver- 
sions of  BASIC)  don't  allow 
variables  with  reserved  words.  That 
is,  any  word  that  BASIC  recognizes 
as  a  command,  statement,  or  func- 
tion cannot  be  part  of  a  variable 
name.  This  restriction,  too,'  can  lead 
to  mysterious  errors.  An  example  is 
the  variable  TOTAL.  It  looks  as  in- 
nocent as  SUM,  but  contains  the 
keyword  TO  (which  is  part  of  the 
FOR/NEXT  loop  statement,  as  in 
FOR  X  =  1  TO  10). 

IBM  BASIC  permits  variables 
with  letters,  numbers,  and  decimal 
points,  as  long  as  the  name  starts 
with  a  letter.  Names  can  be  of  any 
length,  and  the  first  40  characters 
are  significant.  Although  a  variable 
cannot  be  a  reserved  word,  it  can 
contain  a  reserved  word.  Therefore, 
the  variable  TOTAL  is  okay  but  the 
variable  TO  is  not. 

In  Atari  BASIC,  variables  may 
contain  letters  and  numbers,  as 
long  as  they  start  with  a  letter,  and 
can  be  of  any  length  with  all  char- 
acters significant.  What's  more, 
variables  can  include  reserved 
words  or  even  consist  of  a  reserved 
word  if  the  assignment  statements 
use  the  optional  keyword  LET. 
Thus  you  can  have  a  statement 
such  as  LET  LET  =  LET  +  LET.  In 
TI  BASIC,  variables  are  limited  to 
15  characters  (all  significant)  and 
can  start  with  either  a  letter  or  one 
of  the  following  symbols:  (5),  [,  ],  /, 
and  —  Oddly,  though,  the  rest  of 
the  name  cannot  contain  a  [,  ],  or  /. 

Up  to  now  we've  been  discuss- 
ing numeric  variables — variables 
that  represent  ordinary  numbers. 
Next  month  we'll  examine  other 
types  of  variables.  © 
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Compilers,  Interpreters,  And  Flow:  Conclusion 


Over  the  past  two  columns  I've  ex- 
plored some  ways  in  which  pro- 
gramming with  an  interpreter  or 
compiler  can  influence  the  nature 
and  complexity  of  the  programs  we 
write.  As  this  is  written,  I'm  ap- 
proaching the  end  of  a  Logo-based 
programming  course  that  I've  been 
teaching  to  graduate  students  at 
Stanford.  (Yes,  Virginia,  there  is 
Logo  after  second  grade!)  Because  I 
wanted  my  students  to  have  access 
to  a  high-speed  runtime  language,  1 
elected  to  use  a  Logo  compiler  in 
this  course. 

As  was  mentioned  last  month, 
the  speed  improvements  in  com- 
piled programs  have  a  lot  to  do 
with  the  program's  ability  to  main- 
tain a  sense  of  "flow"  with  the  user. 
But,  just  as  the  compiler's  benefits 
are  directed  toward  the  user,  inter- 
preters provide  quite  a  few  benefits 
to  the  programmer — especially  if 
the  programmer  is  just  learning  to 
use  the  language.  When  computer 
languages  are  taught  in  school,  the 
assignments  and  lectures  usually 
structure  the  learning  process  for 
the  students,  and  the  work  at  the 
keyboard  tends  to  reinforce  what 
has  already  been  learned  rather 
than  encourage  new  discoveries.  It 
is  when  learning  a  new  language  on 
your  own  that  an  interpreter  is  of 
tremendous  value. 

Instead  of  studying  a  new  lan- 
guage in  a  book  before  trying  to 
create  programs,  I  usually  jump  in 
with  both  feet  and  start  sloshing 
around,  trying  to  get  something  to 
work.  In  educational  circles,  this 
experimental  learning  style  is  called 
discovery-based  learning.  In  the 
realm  of  videogames,  people  like 
Bemie  DeKoven  call  it  "learning  by 
dying."  One  of  the  reasons  video- 
games can  be  learned  without  refer- 
ring to  extensive  manuals  is  that 
you  can  usually  figure  out  what 
caused  you  to  lose  your  turn  or  one 
of  your  "lives,"  so  you  can  avoid 


that  mistake  the  next  time. 

A  well-designed  interpreter 
and  program  editor  could  allow 
people  to  master  new  programming 
languages  in  this  way.  (This  ap- 
proach could  also  be  applied  to 
education  in  general,  but  that's  a 
topic  for  another  column.) 

Bug  Detectors 

One  example  of  this  is  Macintosh 
Pascal.  Mac  Pascal  contains  both  an 
interpreter  and  a  powerful  program 
editor  that  allows  beginners  to 
learn  this  language  in  a  highly  in- 
teractive and  self-paced  fashion. 
Those  of  you  who  know  Pascal  may 
think  that  the  "sloshing  around" 
style  of  learning  is  ill-suited  to  a 
language  whose  structure  is  more 
like  a  faceted  jewel  than  a  lump  of 
clay.  But  I  believe  the  rigid  structure 
imposed  on  Pascal  programs  makes 
an  "intelligent"  editor  and  program 
interpreter  of  tremendous  value. 

The  program  editor  automati- 
cally indents  program  lines  and 
boldfaces  Pascal  keywords,  making 
the  listing  very  easy  to  scan.  Fur- 
thermore, if  the  interpreter  detects 
an  error  as  the  program  is  running, 
helpful  "bug  detection"  tools  point 
out  the  line  with  the  problem  and 
provide  as  much  help  in  fixing  the 
problem  as  possible. 

This  interaction  between  the 
interpreter  and  program  editor  en- 
courages the  programmer  to  try 
new  constructs  and  ideas,  safe  in 
the  knowledge  that  "bad  grammar" 
will  be  detected  and  clearly 
identified. 

The  interaction  between  the 
interpreter  and  program  editor  does 
not  stop  here.  You  can  also  execute 
programs  line  by  line,  place  "stop 
signs"  at  various  locations  in  the 
program  to  help  debug  the  code, 
and  even  create  windows  to  show 
the  values  of  certain  variables  as  the 
program  runs. 

Normally,  Pascal  doesn't  allow 
you  to   execute   single-line   pro- 


grams. But  Macintosh  Pascal  does, 
so  you  can  type  fragments  of  Pascal 
code  to  see  how  they  behave.  This 
makes  the  language  far  easier  to 
learn.  Fortunately,  Mac  Pascal  is 
being  adapted  for  the  Apple  lie  and 
lie  computers  as  well,  thus  bringing 
this  style  of  Pascal  programming  to 
a  far  larger  audience. 

The  Best  Compromise 

The  choice  between  an  interpreter 
or  a  compiler,  then,  depends  on  the 
application  and  the  point  of  view. 
From  the  user's  perspective,  com- 
piled programs  have  the  advantage 
of  execution  speed.  For  program- 
mers, interpreters  have  more  ad- 
vantages. Since  most  programs 
involve  both  users  and  program- 
mers, this  suggests  that  widely  used 
programming  languages  should  be 
available  in  two  forms — an  inter- 
preter for  creating  and  testing  pro- 
grams, and  a  compiler  to  produce 
the  final  product. 

Furthermore,  it's  essential  that 
these  modules  be  compatible  with 
each  other's  source  code.  Program- 
mers should  be  able  to  take  a  pro- 
gram that  was  written  and 
debugged  with  the  interpreter  and 
drop  it  into  the  compiler  to  generate 
the  highly  efficient  runtime  code 
for  the  user. 

As  progress  continues  along 
these  lines,  we'll  see  a  trend  toward 
application  programming  in  in- 
creasingly higher-level  languages. 
No  longer  will  programmers  have 
to  learn  machine  language  to  build 
industrial-strength  programs.  Any- 
one who  knows  how  to  write  in 
high-level  languages  will  be  able  to 
create  efficient  programs  of  all 
types  for  their  own  use,  as  well  as 
for  the  use  of  others. 

David  -Thornburg  welcomes  let- 
ters from  readers,  but  regrets  that  he 
cannot  personally  answer  all  his  mail. 
Correspondence  should  be  sent  in 
care  of  compute!.  © 
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SIG  Wars 


You  may  recall  that  last  month  we 
raised  the  question  of  what  the 
commercial  information  services 
would  do  about  system  operators 
(sysops)  of  special  interest  groups 
(SIGs)  or  discussion  forums  who 
were  beginning  to  set  up  branches 
of  their  SIGs  on  competing  services. 

The  shoe  has  finally  dropped. 
In  May,  users  of  the  Delphi  infor- 
mation service  noticed  that  the 
Delphi  branch  of  MAUG  (Micro- 
networked  Apple  User  Group) 
mysteriously  vanished  after  a  cou- 
ple of  weeks  of  existence,  to  be 
replaced  by  a  generically  named 
Apple  SIG  with  a  new  sysop. 

Apparently  CompuServe,  the 
current  SIG  heavyweight  among 
information  services,  was  still 
smarting  from  the  wholesale  defec- 
tion of  its  Commodore  forum  sy- 
sops to  another  competing  service. 
In  any  case,  CompuServe  won  back 
the  sysop  of  MAUG  (its  most  popu- 
lar SIG  forum)  with  an  offer  that 
couldn't  be  refused. 

Shortly  after  the  disappearance 
of  MAUG/Delphi,  MAUG/Compu- 
Serve  became  three  SIGs:  one  for 
Apple  II  owners,  a  second  for  Mac- 
intosh fans,  and  a  third  for  Apple 
software  and  hardware  developers. 
All  of  the  SIGs  remained  under  the 
able  tutelage  of  the  original  MAUG 
sysop,  who  ended  up  with  three 
SIGs  rather  than  one  (or  zero). 

This  incident  does  raise  some 
disturbing  issues  which  should  be 
aired  and  discussed  within  the  tele- 
computing community.  At  the  con- 
clusion of  this  column,  I'll  give  you 
a  way  to  participate  in  this  debate. 

Two  Points  Of  View 

A  lot  of  users  cried  foul  after  the 
MAUG  affair,  accusing  one  of  the 
parties  involved  of  restraint  of  trade 
and  illegal  chicanery.  Much  of  this 
was  mildly  sour  grapes  from 
MAUG  regulars  who  had  regarded 
MAUG/Delphi  as  welcome  relief 
for  their  pocketbooks.  MAUG/Del- 


phi's  off-shift  hourly  rate  for  1200 
bits-per-second  (bps)  modems  was 
half  that  of  CompuServe's.  In  fact, 
Delphi's  off-shift  rate  even  for  2400 
bps  was  still  less  than  Compu- 
Serve's 1200  bps  charges.  (Compu- 
Serve is  the  leading  information 
service,  so  its  competitors  are  offer- 
ing lower  rates  in  an  effort  to  entice 
customers.) 

Setting  emotions  aside  for  a 
minute,  there  is  no  evidence  that 
anyone  involved  in  the  MAUG  in- 
cident abrogated  the  legal  rights  of 
any  other  party.  As  for  whether  the 
negotiations  tended  toward  "hard 
ball,"  all  I  can  do  is  remind  mild- 
mannered  telecomputerists  that  in 
the  words  of  Jack  Tramiel,  "busi- 


ness is  war. 


Users  who  regularly 

upload  public  domain 

software  to  SIGs  get 

little  in  return  othier 

than  bills  for  their 

connect  time. 

Shouldn't  there  be  a 

greater  reward  than 

simply  a  pat  on  the 

back? 


The  situation  does  have  as- 
pects of  David  versus  Goliath 
though,  and  since  we  love  to  root 
for  the  underdog  (even  when  Sweet 
Polly  isn't  involved),  it's  hard  on  a 
gut  level  not  to  side  with  the  sy- 
sops. Even  the  most  influential  sy- 
sops tend  to  have  less  bargaining 
power  than  corporations  with  legal 
staffs. 

Who  Owns  The  Info? 

Another  issue  that  tends  to  bother 
many  telecomputing  regulars  is  the 
question  of  who  owns  (or  who  they 
think  should  own)  the  information 
contained  in  a  SIG.  By  the  terms  of 
most  information  service  user  con- 


tracts, the  contents  of  both  the  mes- 
sage base  and  program  download 
areas  are  the  property  of  the  ser- 
vice. Yet,  the  messages  and  the  files 
uploaded  to  the  program  area  are 
provided  by  the  users.  So  SIG  users 
pay  the  information  service  to  dis- 
tribute their  messages  and 
programs. 

There  is  little  doubt  that  a  case 
may  be  made  for  the  information 
service  owning  the  message  base, 
but  what  about  ownership  of  the 
public  domain  programs? 

Users  who  regularly  upload 
public  domain  software  to  SIGs  get 
little  in  return  other  than  bills  for 
their  connect  time.  Shouldn't  there 
be  a  greater  reward  than  simply  a 
pat  on  the  back?  Many  noncom- 
mercial bulletin  board  systems  offer 
special  benefits  to  regular  contribu- 
tors. Why  shouldn't  commercial 
services  do  the  same? 

To  be  perfectly  fair,  SIG  users 
do  receive  value  from  the  service  in 
the  form  of  replies  to  messages  and 
software  to  download.  Hopefully 
the  value  received  is  commensurate 
with  the  tariffs  levied. 

Time  For  An  E-Poil 

How  do  you  feel  about  this  issue? 
Am  I  being  too  tough  or  not  tough 
enough  on  the  information  ser- 
vices? Am  I  off  base  or  stealing 
home  on  a  suicide  squeeze?  E-mail 
your  opinions  to  me  and  I'll  print 
the  results  of  our  electronic  mini- 
poll  in  the  months  to  come. 

Arlan  R.  Levitati 

Source  ID:  TCT987 

Delphi:  ARLANL 

People  Link:  ARIANL 

CompuServe:  70675,463  ® 
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A  Robot  Toddler 


A  couple  of  months  ago,  the  Heath 
Company  of  Benton  Harbor,  Michi- 
gan sent  me  a  HEROjr  personal 
robot  to  review  on  the  PBS  show 
The  New  Tech  Times.  HEROjr  costs 
$600  in  kit  form  and  is  a  19-inch 
tall,  22-pound  comedian.  He  comes 
with  a  repertoire  of  slapstick 
sayings  (like  "Nanu!  Nanu!"  and 
"Beam  me  up,  Scotty!"),  corny 
songs  (like  "Old  MacDonald  Had  a 
Robot"),  and  special  robot  games 
(like  "Cowboys  and  Robots").  He 
can  order  a  hamburger  and  fries  at 
MacDcnald's,  imitate  a  Dr.  Pepper 
commercial,  and  carry  on  an  ani- 
mated conversation  with  a  vacuum 
cleaner  that  he  has  mistaken  for  a 
human  being. 

Despite  his  impressive  techni- 
cal credentials — including  full  pro- 
grammability,  speech  output,  light, 
sound,  and  infrared  sensors,  ultra- 
sonic sonar,  a  clock/calendar,  a 
burglar  alarm,  a  17-key  keypad,  an 
RS-232  interface,  and  whatnot — 
HEROjr  has  an  aura  of  lovable  vul- 
nerability. He  is  not  very  tall,  he 
talks  in  a  shy  little  voice,  and  he  is 
single-minded  about  looking  for 
human  beings  to  play  with  or  sere- 
nade. If  he  were  a  little  smaller, 
he'd  make  a  perfect  lap  robot. 

During  the  day,  HEROjr  wan- 
ders around  our  house  singing, 
gabbing,  and  reciting  nursery 
rhymes.  He  is  about  the  size  of  a 
toddler  and  he  acts  like  a  toddler. 
He  is  unpredictable,  has  a  mind  of 
his  own,  and  frequently  gets  into 
mischief.  1  keep  a  toddler  gate  at  the 
top  of  the  stairs,  since  most  of 
HEROjr's  exploring  takes  place  on 
the  second  floor  of  our  house,  and  I 
wouldn't  want  him  falling  down 
the  steps. 

The  main  difference  between 
HEROjr  and  a  toddler  is  that  when 
you  want  HEROjr  to  take  a  nap, 
you  just  push  the  SLEEP  switch  on 
the  back  of  his  head.  This  feature 
comes  in  handy  when  HEROjr  gets 
himself  stuck  under  the  kitchen 


table,  or  when  you  want  to  plug  a 
new  personality  cartridge  into  his 
brain.  Or  when  his  two  six-volt, 
nickel-cadmium  batteries  are  low 
and  you  need  to  recharge  them. 

HEROjr  got  a  chance  to  see 
something  of  the  world  recently 
when  1  received  a  speaking  invita- 
tion from  the  School  Trustees  Asso- 
ciation in  Vancouver,  British 
Columbia.  The  school  trustees 
(equivalent  to  school  board  mem- 
bers in  the  U.S.)  were  having  their 
annual  meeting,  and  they  wanted 
me  to  speak  about  the  future  of 
computers  in  schools.  1  had  become 
so  attached  to  HEROjr  by  this  time 
that  at  the  last  minute  I  decided  to 
take  him  along. 

There's  A  Robot  On  This 
Airplane! 

Our  trip  began  with  HEROjr  riding 
with  me  in  the  back  of  a  taxicab  to 
the  Roanoke  airport  early  one  morn- 
ing to  catch  a  plane  to  Chicago. 
When  I  introduced  the  robot  to  Red 
Eye,  my  favorite  Roanoke  cabbie. 
Red  Eye  said,  "Junior,  eh?  That's  a 
good  name  for  a  robot!" 

From  that  point  on,  HEROjr 
became  "Junior." 

Junior  and  I  spent  the  rest  of 
that  day  catching  planes  and  run- 
ning frantically  across  airports  try- 
ing to  make  connecting  flights. 
People  reacted  to  Junior  in  a  variety 
of  ways.  A  few  were  hostile — like 
the  flight  attendant  on  one  airline 
who  wouldn't  say  hi  to  Junior  "Be- 
cause," she  said  (obviously  having 
given  great  thought  to  the  matter), 
"I  don't  say  hi  to  robots!"  But  most 
people  were  openly  curious  and  re- 
ceptive. And  some  had  a  strong 
tendency  to  anthropomorphize  the 
robot.  They  wanted  to  talk  with 
Junior,  play  with  him,  protect  him, 
and  care  for  him.  For  example,  one 
flight  attendant  wasn't  comfortable 
until  she  had  tucked  a  pillow  be- 
hind Junior's  head  and  a  blanket 
around  his  wheels — "Just  in  case 


he  gets  chilly,"  she  explained  with 
a  smile. 

On  the  plane  from  Chicago  to 
Seattle,  I  overheard  a  woman  in  the 
seat  ahead  of  me  asking  her  hus- 
band about  Junior.  "I  hope  the  ro- 
bot has  its  seatbelt  on,"  she  said. 

But  Junior  wasn't  wearing  his 
seatbelt.  He  was  sleeping  in  the 
coat  closet  at  the  back  of  the  air- 
plane because  it  was  the  only  place 
he  would  fit,  and  also  because  it 
kept  him  hidden  from  nervous  pas- 
sengers and  unfriendly  flight  atten- 
dants. Suddenly  our  plane  hit  some 
turbulent  weather,  and  Junior  ap- 
parently bumped  into  a  hanging 
bag  hard  enough  to  throw  his 
switch  from  SLEEP  to  NORM.  In- 
stantly Junior  woke  up  and  began 
singing  to  someone's  overcoat. 
"Daisy,  Daisy,"  he  crooned,  "Give 
me  your  answer,  true.  I'm  half  crazy, 
all  for  the  love  of  you...." 

The  passengers  near  the  coat 
closet  began  laughing,  but  some 
passengers  were  worried,  too. 
"Who  is  that  in  there?"  asked  one 
man.  Another  cried,  "There's  a  ro- 
bot on  this  airplane!" 

The  flight  attendant  rushed  to 
my  seat  in  the  forward  section  of 
the  plane  and  took  me  to  Junior's 
rescue.  By  the  time  I  got  there,  he 
was  screaming  "Help!  Help!  Help!" 
This  means  that  he  had  tried  to 
explore  but  couldn't,  because  his 
wheels  were  stuck.  As  1  reached 
into  the  coat  closet  and  pushed  his 
switch  back  to  SLEEP,  the  flight 
attendant  said,  "I  tried  to  calm  him 
by  telling  him  that  you  were  com- 
ing. But  he  just  kept  crying  for 
help." 

Next  month  I'll  tell  you  some 
more  of  Junior's  adventures,  and  I'll 
have  some  thoughts  about  how 
people  react  when  they  meet  their 
first  real  robot — up  close  and  in 
person.  © 
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IBM  Personal  Computing 


Donald  B.  Trivette 


The  Mysterious  Editors 


Recently  I  asked  a  group  of  com- 
puter users — mostly  those  with 
IBM  PCs — how  many  used  an  edi- 
tor. I  got  a  blank  stare.  Most  had 
only  the  vaguest  idea  of  what  an 
editor  is  and  what  you  do  with 
one — the  consensus  being  that  edi- 
tors are  either  useless  or  redundant. 
(Self-preservation  prevents  me 
from  making  a  comparison  be- 
tween the  software  and  the  profes- 
sion.) No  one  confessed  to  actually 
owning  an  editor,  yet  everyone 
who  has  an  IBM  PC  or  PCjr  has  at 
least  three  of  them. 

An  editor  is  a  program  that 
allows  you  to  enter  text,  numbers, 
or  other  data  (binary,  hexadecimal, 
etc.)  into  the  computer's  memory; 
to  display,  modify,  and  change  that 
data;  and  to  store  and  retrieve  it 
using  an  external  device  such  as  a 
disk  drive.  You  may  recognize  that 
word-processing  programs  fall 
within  this  definition,  for  word  pro- 
cessors are  in  fact  very  fancy  edi- 
tors. Most  of  the  commands  (and 
complications)  of  a  word  processor 
are  for  formatting  and  printing  text 
in  a  pretty  way — the  actual  editing 
commands  are  relatively  few  and 
easy  to  use. 

The  first  editor  IBM  gives  you 
is  built  into  the  hardware.  It's  a  part 
of  the  BASIC  language — the  part 
that  allows  you  to  type  BASIC 
statements  and  to  move  the  cursor 
around  the  screen  with  the  arrow 
keys.  This  is  called  full-screen  edit- 
ing. The  BASIC  editor  comes  up 
automatically  when  you  turn  on  a 
PC  or  PCjr  without  a  disk  in  the 
drive,  or  when  you  type  BASIC  (or 
BASICA)  at  the  DOS  A>  prompt 
(the  PCjr  requires  Cartridge  BASIC 
in  this  case).  It's  a  special-purpose 
editor  designed  to  make  entering 
and  correcting  BASIC  statements 
easy,  and  it  can't  really  be  used  for 
anything  else.  Nevertheless,  it  is  an 
editor. 

The  second  editor  IBM  gives  its 
users  is  on  the  DOS  disk  and  is 


named  DEBUG.  This  is  also  a  spe- 
cial-purpose editor.  Using  DEBUG, 
a  programmer  can  follow  the  step- 
by-step  execution  of  a  machine  lan- 
guage program  and  trace  the 
contents  of  memory  as  it  changes. 
DEBUG  can  also  be  used  to  display 
and  change  the  contents  of  a  file — 
particularly  a  program  file  contain- 
ing machine  language  instructions. 
However,  you  must  know  some- 
thing about  machine  language  to 
use  DEBUG  effectively, 

The  third  editor  is  one  almost 
no  one  uses,  although  it  too  comes 
on  the  DOS  disk.  It's  called  EDLIN 
for  LlNe  EDitor.  The  story  goes  that 
some  programmers  at  Microsoft  put 
together  a  quick  and  dirty  editor  for 
their  own  use  while  working  on  the 
then-secret  IBM  PC  project.  When 
IBM  bought  DOS  and  BASIC  from 
Microsoft,  the  editor  was  shipped 
along  by  mistake.  Supposedly  some 
folks  at  IBM  thought  EDLIN  was 
supposed  to  be  a  consumer  prod- 
uct, so  it  was  included  on  the  DOS 
disk  along  with  BASIC  and  DE- 
BUG. What  was  intended  to  be  an 
internal  tool  has  now  permeated 
thousands  of  homes  and  offices. 

The  Ugly  Duckling 

Neither  Microsoft  nor  IBM  is  espe- 
cially proud  of  EDLIN.  It  doesn't 
showcase  the  PC's  power,  so  it  re- 
mains the  ugly  duckling  of  IBM 
software;  Still,  it  has  many  of  the 
requisites  for  a  general-purpose 
editor:  You  can  use  it  to  create, 
display,  and  modify  a  file,  and  you 
can  use  it  to  save  and  load  files.  If 
only  it  had  a  print  command,  it 
might  have  been  the  PC's  first  word 
processor.  And  if  it  supported  full- 
screen editing  like  BASIC,  instead 
of  primitive  line-editing,  it  might  be 
one  of  the  PC's  most  popular  pro- 
grams. Still,  it's  not  a  totally  useless 
editor — once  you  get  used  to  it. 

Some  rainy  Saturday,  when 
you  want  to  learn  something  new, 
take  out  your  DOS  disk  and  try 


EDLIN.  The  documentation  is  in 
the  DOS  manual,  and  you're  likely 
to  need  it.  Here  are  a  few  tips: 

•  At  the  A>  prompt,  type  ED- 
LIN and  the  name  of  the  file  you 
want  to  edit.  EDLIN  won't  start 
unless  you  give  it  the  name  of  a  file, 
new  or  existing,  when  you  start  the 
program. 

•  The  DOS  disk  is  write- 
protected,  so  either  copy  EDLIN  to 
another  disk  or  edit  a  file  on  drive  B. 
For  example,  to  edit  a  new  file 
named  ABC  on  the  disk  in  drive  B:, 
type  EDLIN  B:ABC. 

•  The  asterisk  (*)  you'll  see 
when  EDLIN  is  active  is  the  EDLIN 
prompt,  just  as  A>  prompts  for 
DOS  and  Ok  for  BASIC. 

•  EDLIN  comes  up  with  the  * 
prompt.  To  begin  entering  input, 
type  an  I  (for  input  mode)  at  the 
prompt. 

•  Line  numbers  are  typed  before 
editor  commands.  For  example,  to 
list  lines  20  through  30,  the  com- 
mand is  20,30L.  This  is  exactly 
backward  from  BASIC. 

There  are  some  reasons,  other 
than  curiosity,  to  use  EDLIN.  It  has 
so  few  commands  (14)  that  it's  su- 
per compact.  The  whole  program  is 
just  4600  bytes  long.  That  means 
there's  room  for  EDLIN  on  almost 
any  disk,  so  you  can  always  have 
an  editor  online  to  create  a  new 
BATCH  file  or  even  to  quickly  mod- 
ify a  text  file.  And  because  it's  so 
small,  there's  lots  of  memory  left 
for  the  file  itself — an  important 
consideration  for  PCjr  users.  More 
than  once  on  the  Junior  I've  had  to 
use  EDLIN  to  edit  a  file  too  large  for 
my  memory-hungry  word  proces- 
sor. That's  when  an  ugly  duckling 
truly  becomes  a  swan. 

Donald  B.  Trivette  is  the  author  of  Put- 
ting ]r  to  Work:  A  Guide  to  the  IBM 
PCjr,  published  by  COMPUTE!  Books.© 
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Prograrmnning  the  Tl 

C.  Regena 


The  OPEN  Statement 


Recently  I  received  a  call  from  a 
young  programmer  who  wanted  to 
know  more  about  the  OPEN  state- 
ment. I  really  couldn't  give  him  an 
adequate  answer  over  the  phone 
("look  at  your  manuals"),  so  I'll 
give  several  examples  here. 

The  OPEN  statement  means 
about  the  same  thing  in  all  versions 
of  BASIC,  but  each  computer  has  its 
own  variations.  As  the  statement 
implies,  the  function  of  OPEN  is  to 
open  a  file — or,  as  I  like  to  think  of 
it,  to  get  the  attention  of  another 
device  to  be  used  with  the  main 
console.  Various  forms  of  the 
OPEN  statement  are  described  in 
the  manuals  that  come  with  the 
peripherals. 

OPEN  statements  are  general- 
ly followed  by  the  number  of  the 
device  you  want  to  address.  In  TI 
BASIC,  you  may  use  any  constant 
or  variable  with  a  value  of  1  to  255 
for  the  device  number.  The  number 
is  preceded  by  the  #  sign,  such  as 
OPEN  #1:  to  open  file  #1. 

Whenever  you  use  an  OPEN 
statement,  it  is  good  programming 
practice  to  include  a  CLOSE  state- 
ment when  you're  finished  with  the 
device.  If  your  program  stops  with 
an  error,  the  files  are  automatically 
closed. 

Speech  Synthesis 

If  you  have  the  TI  Speech  Synthe- 
sizer and  the  Terminal  Emulator  II 
command  module,  use  an  OPEN 
statement  to  make  the  computer 
talk: 
OPEN  #I:"SPEECH,"OUTFUT 

This  alerts  the  speech  device  to  be 
ready  for  output.  Then  all  you  need 
is   a   PRINT   #1    statement    (pro- 
nounced "print  file  one"): 
PRINT  #l:"HELLO" 

Within  a  program,  you  can 
print  on  the  screen  with  a  regular 
PRINT  statement  and  produce 
speech  with  the  PRINT  # 
statement: 


10  OPEN  #S:"SPEECH,"OUTPUT 
20  PRINT  "THIS  IS  A  TEST." 
30  PRINT  #5:"THIS  IS  A  TEST." 
40  CLOSE  #5 

By  the  way,  if  you'd  like  to 
hear  your  program  listing,  use  the 
command  LIST  "SPEECH." 

Printing 

To  get  the  most  out  of  a  printer,  you 
really  need  to  study  your  printer 
and  interface  manuals.  The  Texas 
Instruments  RS-232  interface  man- 
ual shows  all  the  different  parame- 
ters for  accessing  your  printer.  Here 
are  some  examples  of  OPEN 
statements: 

OPEN  #1:'TP" 

OPEN  #l:"PIO" 

OPEN  #1:"RS232.BA  =  600" 

OPEN  #1:"RS232.TW.BA=110" 

Once  you've  determined  the 
necessary  OPEN  statement  for  your 
hardware  configuration,  you  can 
use  PRINT  #1  (or  whatever  file 
number  you  opened)  to  send  any 
command  to  the  printer.  If  someone 
else  wants  to  modify  your  program 
for  another  configuration,  they  can 
simply  change  the  OPEN  statement 
for  their  setup. 

PRINT  #  lets  you  print  con- 
stants, variables,  and  strings.  You 
can  align  columns  with  the  TAB 
function.  In  Extended  BASIC,  the 
PRINT  #1,  USING  statement  also 
is  handy  to  format  the  output. 
Here's  a  short  example  of  sending 
output  to  the  printer: 

10  OPEN  #1:"RS232.BA  =  600" 

20  PRINT  #1:TAB(10);'THIS  SHOULD 

PRINT." 
30  CLOSE  #1 

Fiie  Processing 

If  you  want  to  learn  more  about  file 
processing  with  the  OPEN  state- 
ment, the  manual  that  comes  with 
the  TI-99/4A  contains  a  good  de- 
scription of  various  forms  of  OPEN. 
I  also  discussed  file  processing  in 
my  COMPUTE!  columns  of  March, 
April,  and  May  1984.  And  a  pro- 


gram which  saves  names  and  ad- 
dresses on  cassette  is  in  my  book. 
Programmer's  Reference  Guide  to  the 
TI-99/4A. 

This  month's  example  pro- 
gram shows  how  to  use  the  OPEN 
statement  to  save  a  drawing  on  cas- 
sette. Type  in  and  run  the  program, 
then  press  the  arrow  keys  to  draw  a 
low-resolution  picture  on  the 
screen.  When  you're  done,  press 
CTRL-S  to  save  the  picture  on  tape. 
You  can  load  it  by  pressing  CTRL-L. 

The  program  uses  different 
character  numbers  for  the  different- 
colored  drawing  squares.  These  are 
defined  in  lines  140-200.  When  the 
program  loads  a  picture,  it  uses  the 
character  numbers  to  determine  the 
locations  of  the  colored  squares. 

Lines  540-870  contain  the 
drawing  procedure.  The  variable  X 
is  the  row  and  Y  is  the  column.  C  is 
the  character  number.  If  you  press 
the  space  bar,  C  is  incremented  by  4 
and  the  color  of  the  square  changes. 
The  arrow  keys  move  the  square, 
and  it  stops  at  each  screen  edge. 

Lines  890-990  keep  track  of 
the  character  numbers  for  each  col- 
umn in  each  row  if  you  want  to 
save  the  picture.  Lines  1000-1050 
save  the  strings  of  G$,  which  con- 
tain the  character  numbers  on  cas- 
sette. The  procedure  takes  quite  a 
whUe  because  each  item  saved  has 
its  own  leader.  You  can  hear  the 
cassette  recording  during  this  pro- 
cess. The  OPEN  statement  in  line 
1000  opens  device  #1  as  "CSl,"  or 
cassette,  for  OUTPUT.  INTERNAL 
and  FIXED  are  two  options  avail- 
able in  the  OPEN  statement  for  cas- 
sette that  specify  how  to  save  the 
data.  FIXED  96  is  used  because  each 
G$  will  be  96  characters  long. 

Lines  1150-1210  load  the  pic- 
ture from  cassette.  Notice  how  the 
OPEN  statement  in  line  1160 
matches  the  format  of  line  1000, 
except  that  it  specifies  INPUT  in- 
stead of  OUTPUT.  The  INPUT  #2 
statement  reads  G$  row  by  row. 
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Input  variables  must  match  the  way 
they  were  previously  saved,  al- 
though you  can  use  different  vari- 
able names.  Lines  1230-1320 
recreate  the  picture  on  the  screen 
from  the  information  read  off  tape. 
If  you'd  like  to  save  typing  ef- 
fort, you  can  obtain  a  copy  of  this 
program  by  sending  a  blank  cas- 
sette or  disk,  a  stamped,  self- 
addressed  mailer,  and  $3  to: 

C.  Regena 
P.O.  Box  1502 
Cedar  City,  UT  84720 

Doodle  With  CS1 

100  REM   DOODLE  WITH  CSl 

110  DIM  G«(24) 

120  CALL  CLEAR 

130  PRINT  TAB(ll) I "DDQDLE"! 

:  I  I 
140  FOR  C»10  TO  li 
1S0  0"E«a+24 
160  CALL  CHAR<D,"") 
170  CALL  CHAR<D+4, "FFFFFFFF 

FFFFFFFF") 
180  CALL  CQLOR(C,C, C-7) 
190  NEXT  C 

200  CALL  COLOR(i0,2,3> 
210  PRINT  "CHOQSEl " 
220  PRINT  »"1  DRAW" 
230  PRINT  J "2  LOAD  PICTURE" 

I  I  : 
240  CALL  KEY(0,K,S) 
2S0  IF  K-50  THEN  1160 
260  IF  K04"?  THEN  240 
270  REM 

280  CALL  CLEAR 
2<?0  PRINT  "PRESS  SPACE  BAR 

TO  CHANGE" 
300  PRINT  "SCREEN  COLOR." 
310  PRINT  IMPRESS  <ENTER>  F 

OR  DESIREDC3  SPACES>CaL 

OR.  " 
320  5C-3 

330  CALL  SCREENC5C) 
340  CALL  SOUND<100, 1497,2) 
350  CALL  KEY<0,K,S> 
360  IF  K-13  THEN  420 
370  IF  K032  THEN  350 
380  SC-SC+1 
390  IF  SC-10  THEN  380 
400  IF  SC-17  THEN  320  ELSE 

330 
410  REM 

420  CALL  CLEAR 
430  PRINT  "MOVE  ARROW  KEYS 

TO  DRAW. " 
440  PRINT  I "PRESS  SPACE  BAR 
TO  CHANBEC3  SPACE8>C0L 

DPS.  " 
430  PRINT  i"PRES5  CTRL  S  TO 

SAVE. " 
460  PRINT  1 "PRESS  CTRL  L  TO 

LOAD, " 
470  PRINT  ("PRESS  CTRL  E  TO 

END.  " 
480  PRINT  ;i"NaW  PRESS  ANY 

KEY  TO  START.  " 
490  X-12 
500  Y-16 
S10  C-104 

320  CALL  KEV<0,K,S) 
530  IF  5<1  THEN  520 
540  REM   DRAW 
5S0  CALL  CLEAR 
560  CALL  SCREEN  (SO 
570  CALL  KEY(0,K,SJ 
580  CALL  HCHAR(X, Y,32> 
590  CALL  HCHAR<X,Y,C> 


600  IF  (<-147  THEN  890 

610  IF  K-140  THEN  1160 

620  IF  K-133  THEN  1350 

630  IF  K032  THEN  680 

640  C-C+4 

650  IF  CO160  THEN  570 

660  C-104 

670  BOTO  570 

680  IF  K069  THEN  730 

690  X-X-1 

700  IF  X>0  THEN  570 

710  X-1 

720  GOTO  570 

730  IF  KOB3  THEN  780 

740  Y-Y-1 

750  IF  Y>0  THEN  570 

760  Y-1 

770  GOTO  570 

780  IF  K<>6a  THEN  B30 

790  Y-Y+1 

800  IF  Y<33  THEN  570 

810  Y-32 

820  GOTO  570 

830  IF  KOBB  THEN  570 

840  X-X+1 

830  IF  X<24  THEN  570 

B60  Xo24 

870  GOTO  570 

BB0  REM   SAVE 

B90  CALL  SDUND<150, 1200, 2> 

900  FOR  ROW-1  TO  24 

910  Q«(ROW>-"" 

920  FOR  COL-1  TO  32 

930  CALL  QCHAR (ROW,COL,S) 

940  IF  B032  THEN  960 

950  G-200 

960  G« (ROWl-GC (RQW)&STR« <Q> 

970  NEXT  COL 

9B0  CALL  SOUND<50, 1200,2) 

990  NEXT  ROW 

1000  OPEN  *U  "CSl", OUTPUT,  I 
NTERNAL, FIXED  96 

1010  FOR  ROW-1  TO  24 

1020  PRINT  #llG«(RQW) 

1030  NEXT  ROW 

1040  PRINT  «liX,Y,C,SC 

1050  CLOSE  «1 

1060  PRINT  i I "CHOOSE:" 

1070  PRINT  !"1  30  BACK  TO  S 
AME  DRAWING" 

10B0  PRINT  I "2  START  NEW  DR 
AWING" 

1090  PRINT  I "3  SAVE  ANOTHER 
COPY" 

1100  PRINT  I "4  LOAD  PICTURE 


1110 
1  120 
1  130 

1140 

1150 
1160 

1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 

1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 


PRINT  i"5 
CALL  KEY(0 
IF  <K<49)+ 
120 

ON  K-4B  GO 
1000, 1160, 
REM   LOAD 
OPEN  tt2i "C 
NTERNAL, FI 
FOR  ROW-l 
INPUT  #2iG 
NEXT  ROW 
INPUT  *2iX 
CLOSE  #2 
REM 

CALL  CLEAR 
CALL  SCREE 
FDR  ROW-1 
FOR  COL-1 
B-VAL(SEG« 
«3-2,3> ) 
IF  GO200 
G-32 


END" 

,K,S> 

(K>33)THEN  1 

TO  1230,260, 
1350 

SI ", INPUT  , I 
XED  96 
TO  24 
t (ROW) 


, Y,C,SC 


CALL 

NEXT 

NEXT 

SOTO 

REM 

CALL 

END 


HCHAR 
COL 
ROM 
S70 

CLEAR 


N(SC) 
TO  24 
TO  32 
IB* (ROW) ,CDL 

THEN     1300 

(ROW, COL, G) 
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American  Covers 

Leather  Look  -  Durable 

for  all  Drives.  Computers  & 

Monitors  —  CALL 

Axiom  Interfaces 

Parallax -AT  69.95 

Parallax -II 69.95 

Pofallax-CD  69,95 

Discwastier 
Spike  Masters 

FP-1000 59.95 

P-100Q ''9.95 

P-500 ,....18.95 

Carl  Battery  Pack 
Caring  Case 

199.95 

MPP  Modems 

1000E  69.95 

1064  79.95 

Video  7  C-64  Modem  39.95 

MPP 

Interface  1150  63.95 

Print  Buffer 119.95 

1200  Baud  MPP  Modem  , Colt 

Indus  Disk  Drives 

GT-Atari 259.95 

GT-C-64 269.95 

GT-Apple 179,95 

Intronic  Kameleon 

Apple  2C  M-100  Interface  69,95 

AB  Switch  Box  w/cables , ,  99,00 

Jasco  Printer  Cable 

IBM  Printer  Cable  24,95 

MTR  Monitor 

IBM-TTL  Green  or  Amber 169.95 

w/swivel  &  tilt  base 

Star  Micronics,  Inc. 

SG10 239.95 

SG10C 259.00 

SD10  Call 

SD15  Call 

SR10 Call 

SR15 Call 

SB Call 

COMPUTER  HOUSE  Specialties 

P.O.  Box  26 

Belton,  MO  64012 

Call  Toll  Free  to  Order 

Outside  Kansas  call 
1-800-255-0390  ttien  454457 

In  Kansas  Call 
1-800-332-0274  then  454457 

VJq  accept  cfnecks,  monev  craer,  Visa  8l  Master- 
Card (include  *  S.  eipifoTion  ddte)  f^ease  ddd 
3':%  for  credit  card  purchases  Personal  & 
CornDany  check  s  allow  2  weeks  to  dear  Schoot 
orders  accepted  F*rice  subiect  io  change  without 
notice  Deder  mduines  inwited  Missouri  residents 
add  6".%  sales  ro*  Visa.  MasterCord,  Cashiers 
Checks  Of  Money  Orders  Orders  will  be  shipped 
next  day  Due  to  cxjriow  puces  oil  soesoreftnal 
All  returns  must  have  return  authonzotion  number 
Coll  to  obtain  one 


COMPUTER 
HOUSE 

Specialties 
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Bill  Wilkinson 


Using  Serial  input/Output 


Last  month,  I  introduced  the  struc- 
ture of  Atari's  operating  system 
(OS).  My  most  important  point  was 
that  the  OS  consists  of  several  lay- 
ers. When  you  type  in  a  BASIC 
statement  such  as  LPRINT  "Hi 
There!",  you  cause  a  fairly  complex 
chain  of  events.  First,  BASIC  figures 
out  that  LPRINT  means  you  want 
to  use  a  printer,  so  it  calls  the  OS  to 
open  a  channel  to  the  printer  (al- 
ways channel  number  7,  in  this 
case).  Then  BASIC  sends  the  bytes 
to  be  printed  to  a  part  of  the  OS 
called  Central  Input/Output  (CIO), 
which  in  turn  realizes  that  a  file  to 
the  printer  has  been  opened  on  that 
channel.  CIO  calls  the  printer  driv- 
er, which  collects  bytes  until  it  has  a 
block  of  them  (or  until  it  gets  a 
carriage-return  character  or  a 
CLOSE  command).  Finally,  the 
printer  driver  sends  a  block  of  bytes 
to  the  printer  by  calling  Serial  Input/ 
Output  (SIO) — another  subroutine 
inside  the  OS,  and  the  subject  of  this 
month's  discussion, 

I'd  like  to  point  out  that  this 
process  stops  at  SIO  only  as  far  as 
the  computer  is  concerned.  The 
printer  interface  (for  example,  an 
850  Interface  Module)  also  contains 
a  microprocessor  which  collects  the 
block  sent  to  it  by  SIO.  Then  the 
interface  passes  the  block,  a  byte  at  a 
time,  to  the  printer.  Within  the 
printer,  yet  another  microprocessor 
is  usually  employed  to  control  the 
various  motors  and  hammers  and 
wheels  that  actually  place  the  char- 
acters on  paper. 

Did  you  note  that  the  process  of 
printing  even  a  single  character 
most  probably  requires  the  use  of 
three  microprocessors?  Did  you  stop 
to  think  that  each  of  these  proces- 
sors requires  software  to  make  it 
work?  Did  you  ever  wonder  why 
there  are  so  many  people  making  a 
living  at  programming?  (Though 
barely,  in  the  case  of  some  of  us.) 

Perhaps  the  most  amazing 
thing  is  that,  for  the  most  part,  the 


three  microprocessors  work  reliably 
and  efficiently  together.  (It  is  even 
more  amazing  when  you  consider 
that  either  the  printer  or  interface 
module  is  often  made  by  a  company 
other  than  the  one  which  made  the 
computer!)  The  secret  to  success 
here  is  standardization.  The  usual 
printer  connection  is  a  fairly  simple 
one,  originally  defined  by  a  compa- 
ny named  Centronics  and  now 
adopted  by  almost  every  manufac- 
turer in  the  microcomputer  market. 
The  way  your  Atari  computer 
"talks"  to  your  interface  module, 
though,  is  strictly  an  Atari  inven- 
tion— the  SIO.  There  is  a  well-de- 
fined protocol  associated  with  SIO. 
It  includes  such  niceties  as  Com- 
mand and  Data  Frames,  Acknowl- 
edgment, Nonacknowledgment, 
Command  and  Bus  Errors,  and 
more.  Luckily,  99  percent  of  all 
Atari  programmers  need  never 
learn  these  gory  details,  since  there 
really  isn't  anything  you  can  do  to 
change  their  workings. 

Disk  Access  Via  SIO 

Some  programmers,  however,  do 
want  to  send  and  receive  blocks  via 
SIO.  And  usually  the  blocks  to  be 
transferred  are  disk  sectors.  So  let's 
look  at  how  one  reads  or  writes  a 
specific  disk  sector. 

When  SIO  is  called  by  a  pro- 
gram, it  expects  to  find  certain 
information  in  a  Device  Control 
Block  (DCB),  There  is  only  one 
DCB,  located  at  $0300-$030B 
(768-779  decimal).  It  contains  four 
one-byte  values  and  four  two-byte 
(word)  values,  all  of  which  must  be 
set  up  properly.  The  accompanying 
table  briefly  describes  each  location 
in  the  DCB.  See  COMPUTE!  Books' 
Mapping  the  Atari  for  more  details. 

Does  all  this  look  confusing? 
Not  to  worry.  Program  1  below  is  a 
subroutine  which  does  most  of  the 
work  for  you.  Just  type  it  in,  LIST  it 
to  disk  or  cassette,  and  use  it  in  your 
own  programs  whenever  you  wish. 


Program  2  demonstrates  how  to  use 
the  subroutine,  though  I  hope  the 
comments  make  it  pretty  much  self- 
explanatory.  (Perhaps  I  should  note 
that  a  command  of  R  reads  a  sector, 
P  writes  a  sector  without  verifying 
it,  and  W  both  writes  and  verifies  a 
sector.)  To  use  Program  2,  you  must 
add  the  subroutine  from  Program  1 . 
You  can  either  type  in  the  lines 
from  Program  1,  or  ENTER  them 
from  disk  or  tape  if  you  have  LIST- 
ed  out  a  copy  of  Program  I.  Pro- 
gram 3  is  the  source  code  behind 
the  DATA  statements  in  line  9210 
of  Program  1. 

If  you  type  in  and  use  Program 
2,  you  might  like  to  remember  that 
the  volume  table  of  contents  (VTOC) 
of  a  DOS  2.0-compatible  disk  is  in 
sector  360.  The  directory  occupies 
sectors  361  to  368.  Sectors  1,  2,  and 
3  are  for  booting  only.  All  other 
sectors  from  4  to  719  should  be 
DOS  file  sectors.  (See  COMPUTE! 
Books'  Inside  Atari  DOS  for  more 
info.  Caution:  The  diagram  of  the 
sector  link  bytes  is  wrong.) 

Finally,  I  give  you  a  hint  and 
challenge  for  next  month:  Most 
drives  not  made  by  Atari  allow  the 
user  to  specify  their  configuration 
(for  example,  single  or  double  den- 
sity). You  can  read  their  configura- 
tion blocks  with  an  SIO  command 
of  N  (or  write  via  O).  But  be  careful! 
DSIZE  must  be  given  as  12  bytes. 
Can  you  modify  our  subroutine  to 
read  the  configuration  block?  Good 
luck. 
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DCB  Layout  Table 

EN  1190    GRAPHICS    0 

DL  1200    PRINT     "Read     Sector     " 

Location          Name            Size 

Purpose 

;SECTDRj"     gave    Statu 
s     "J SIOSTATUS 

Hex 

Dec 

OP  1210     SIZE=-DENSITY«12BiREM 

300 

768         DDEVIC              1        Name  of  device  on  SIO  bus  (all  disk  drives 

size    is     12B    or     256 
CJ  1220    SECTOR'PEEKfADDR  +  SlI 

use  "1,"  $31,  as  a  name). 

E-3  ) 

301 

769         DUNIT                 1        Unit  number  of  device  (lo  distinguislt  Dl: 

JC1230     FILE-INT (SECTaR/4) 

from  D2:,  for  example). 

EP1240     SECT0R=SECT0R-4*FILE 

302 

770         DCOMND           1        Command,  usually   an  ATASCII  letter. 

ON  1250     seCTQR=-SECTaR»2S6  +  PE 

such  as  "R"  for  read  sector  (but  'T  will 

EK(ADDR+SIZE-2) 

format  a  disk!). 

EA  1260    CNT-PEEK(ADDR  +  SIZE-i 

303 

771         DSTATS              1        Direction  control  before  call  to  SIO;  status 

) 

oi 

operation  upon  return. 

DO  1270    PRINT     "I-f     DOS    file    s 

304 

772         DBUF                   2        Address  of  buffer  to  read  from  or  write  to, 

octor,     this     la    -file 

306 

as  appropriate. 
774         DTIME                 2        Timeout  value.  SIO  waits  this  many  sec- 
onds before  giving  up. 

#"jFILE 
HB  1280    PRINT     "        there    are     " 
jCNT;  '■     bytes    in    this 
sector " 

308 

776         DBYTE                 2        Numberof  bytes  to  transfer  (always  128  or 

NA  1290    PRINT     "        and     the    nex 

256  for  disks). 

t    sector    is    number     " 

30A 

778         DAUX                  2        Purpose    varies;    always    sector    number 

, SECTOR 

when  used  with  disks. 

F>  1300     PRINT 

JL  1310     FOR     LINE  =  0     TO     DENS  I T 
Ytl28-1     STEP     8 

FC  1320     BYTE'LlNEiGOSUB     1500 

Program  1 :  SIO  Subroutine 

PF  9290     POKE     772,  ADDR-256»PE 
EK ( 773 ) 

t PR  I  NT     ":"; 

For  Instfuctions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 

FB  9300     POKE     774,3:REM     short 

NK  1330     FOR     CNT  =  0     TO     7 

PD  1340     BYTE  =  PEEK(  ADDR  +  LINE  + 

Programs" 

published  bimonthly  In  COmputei. 

t  i  meou t 

Jf9310     POKE     775,0:REM      (high 

CNT)teD5LJB     1S00:PRIN 
T    "     "; 

LF9000 

J5  9CI10 

REM     

byte    of     timeQut) 
All  9320     POKE     776,12a:P0KE     77 
7,0:REM     assume     singl 

OH  1350     NEXT     CNT 

NN  1360     FOR     CNT  =  0     TO     7 

Dftl370    BYTE=PEEK(ADDR+LINE+ 

REM     DISK     SECTOR     I/D 

ROUTINE 

e    densi  t  y 

CNT) 

JF  9020 

REM     .      ENTER: 

LG  9330     IF     DENSITY  =  2     THEN     PO 

AD  1380     IF     BYTEM27     THEN    BYT 

JD  9030 

REM     . C3     SPACESJsecto 

KE     776, 0: POKE     777, 1 

E-BYTE-12e 

r     number     in     SECTOR 

KC  934  0     POKE     779  ,  I  NT  (  SEC  TOR  / 

BB  1390     PRINT     CHR«  (  27  )  j  CHR«  C 

ND  9040 

REM     . C3     SPACESJdri ve 

256) 

BYTE) ; 

number     in     DRIVE 

LB9350     POKE     7  7S ,  SECTOR-256* 

OJ   1400     NEXT     CNT 

DC  9050 

REM     . £3    SPACESJbuf f B 

P  E  E  K  (  7  7  9  ) 

FD  1410    PRINT 

r     address     in    ADDR 

HK9360     SIDSTATUS=USR{ADR (SI 

CD  1420    NEXT     LINE 

IP  9060 

REM     . t3     SPfiCES>CDmma 

OCALL* ) ) 

FF  1430     PRINT 

nd     in     CMD* 

LD9370     RETURN 

NK  1440     GOTO     1  160 

NJ  9070 

REM     . C3    SPflCESJdensi 
ty     in     DENSITY 

L«14Sa     REM     

Program  2:  SIO  Demo 

LM     iT^JKJ"        r\^ll         ■■■■■*■*■*■«•••* 

SS90B0 

REM     (only     "R" , "W" , "P 

i=or  instructions  on  entering  this  listing,  please 

... 

"     are    valid     for     CMD* 

refer  to  "COMPUTEI's  Guide  to  Typing  In 

PF1460     REM     A    QUICKY     DECIMAL 

) 

Programs"  published  bimonthly  in  COMPUTEI, 

TO     HEX     CONVERTER 

U  9090 

REM     (only     1=SGL    and 

KF  1500     TRAP     1520 

2=DBL    are    valid     far 

K1IB00     REM     PROGRAM     TO    DEMON 

DO  1510     DIM     HX«(16):HX«-"012 

DENSITY) 

STRATE    SECTOR    READ     S 

3456789ABCDEF" 

FA  9100 

REM     .      EXIT: 

UBROUTINE 

PD  1520     TRAP     40000 

CH  9  i  1  0 

REM     .£3     SPACESIstatu 

HJ  1010    REM    NOTEj     rattier    ttia 

EK  1530    HX=INT(BYTE/16)+1:PR 

5     in     SIOSTATUS 

n    SBk    questions,     wa 

INT     HX»(HX,HX)  ;  !HX=-B 

LA  9120 

REM 

EE  1020    REM     .{5    SPACES  J  assum 

YTE-16«HX+17; PRINT     H 

01  9160 

TRAP     9220:REM     activa 

e    that    we    will     work 

X«(HX,HX) i 

ted    if    SIQCALL*    aire 

with     drive 

KK  1540    RETURN 

ady     DIM'd 

CP  1030    REM     .<5    SPACESlnumbe 

10  9  170 

DIM     SIDCALL* (16) 

r     1     and    that    it     is    s 

110  9  180 

RESTORE     9210 

ingle 

Program  3:  Subroutine 

JP  9  190 

FOR     CNT=1     TO     14:REfiD 
BYTE 

HK  1040    REM     .  C5    SPACESldensi 
ty     (128    byte    sectors 

Source  Code 

EN  9  2  00 

SI  DC ALL*  (CNT)  =CHRS  (B 

) 

Note:  This  listing  is  provided  for 

«C  9210 

VTE) :NEXT     CNT 

DATA     104, 32, 89, 228, 1 

KK  1050    REM 

PA1100     DIM     BUFFER«<256)  iREK 

informational  purposes;  it  requires 
an  assembler  to  enter  into  your 

73,3,3, 133,212, 169,0 

guaranteed    adequate 

, 133,213,96 

RLllia    ADDR-ADR  (BUFFER*)  sRE 

computer. 

FB  9220 

TRAP     40000:REM     turn 

M    required    by    subrou 

o+-f     TRAP 

tine 

t-   anyplace 

m  9230 

POKE     768, ASC< " 1 " ) s RE 

PI  1120    DRIVE=liREM     assumpti 

CALLS ID 

on. ..easily    changed 

PLA             1  throw  away  count 

GC  9240 

POKE     769, DRIVE! REM     m 

HC1130    DENSITY-lsREM    assump 

)    D-f   arguflients 

ust     be     1     throughi     8 

tion. . -ditto 

JSR   5I0V         ; (at    «E459) 

OJ  9250 

POKE     770, ASC (CMD*) 

JD  1140    DIM    CMD« ( 1)  i CMD»="R" 

LDA   DSTATS    }SID   Status 

DN  9260 

POKE     771,12a:REM     as5 

:REM    always,     -for     thi 

;     (from   DCB) 

ume    write 

s    demo 

STA   FR0    tfloating    point 

LP  9270 

IF     CMD*="R"     THEN     PDK 

KL  1150    REM 

)    register    0,    *04 

E     771,64 

NB1160    PRINT    "What    sectcsr    t 

LDA   4t0 

Hfl  92S0 

POKE     773, INT (ADDR/25 

o    display"; 

STA   FR0+1    J (to   get    a    two- 

6)  :REM    bu-f  f  er     addres 

CJ  1170     INPUT     SECTOR 

;    byte   value) 
RTS    iback    to    BASIC   caller       @ 

5 

Bl>  1180    GOSUB    9000 
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Jump  Search 


Learn  how  the  binary  search  method 
can  speed  up  data  handling.  The  short 
demonstration  program  listed  below 
runs  on  the  Atari  400/800,  XL,  and 
XE  series;  Apple  //-series;  IBM 
PC/PCjr;  all  Commodore  computers; 
Tl'99/4A;  the  Radio  Shack  Color 
Computer;  and  other  personal  com- 
puters with  BASIC. 


Searching  for  a  specific  item  in  a 
collection  of  data  is  a  fundamental 
computing  task.  Word  processors, 
databases,  and  address  book  pro- 
grams all  need  to  locate  data  quick- 
ly and  accurately.  This  article 
shows  how  to  use  the  simple  binary 
search  method  in  BASIC  programs 
for  efficient  data  handling. 

For  a  demonstration,  type  in, 
save,  and  run  "Jump  Search"  be- 
low. Program  1  is  a  general  version 
for  Commodore,  IBM,  Apple,  and 
the  TRS-80  Color  Computer.  For 
the  Atari,  make  the  line  changes 
listed  in  Program  2.  For  the  TI- 
99/4A,  one  small  change  is  needed 
to  use  Program  1.  TI  BASIC  does 
not  allow  variables  as  arguments  in 
DIM  statements,  so  line  110  should 
be  replaced  with  the  following: 
110  DIM  ssao),  pp(io) 

If  you  have  another  computer 
not  mentioned  above,  use  Program 
1;  it  should  run  with  little  or  no 
modification. 

The  demo  program  creates  a 
list  of  ten  city  names  in  alphabetical 
order,  with  population  figures  for 
each  city  (of  course,  an  actual  pro- 
gram would  contain  much  more 
data).  Lines  100-140  store  the  city 
names  in  a  string  array  and  the 
population  figures  in  a  matching 
numeric  array.  (On  the  Atari,  the 
string  array  is  simulated  by  ma- 
nipulating substrings  within  a  sin- 
gle string  variable,  since  there  are 
no   true   string   arrays   in   Atari 


Jerry  Sturdivanl 

BASIC.)  Once  this  is  done,  you  can 
find  the  population  of  any  city  in 
the  list  by  searching  for  its  name. 
For  example,  if  your  search  finds 
that  AKRON  is  stored  in  array  ele- 
ment S$(2),  then  the  population  for 
Akron  can  be  found  in  the  numeric 
array  element  PP(2). 

The  city  names  are  stored  in 
the  array  in  alphabetical  order  be- 
cause this  search  technique  works 
only  on  data  that  has  been  arranged 
in  alphabetical  or  numeric  order.  If 
you  consider  the  situation  for  a  mo- 
ment, you'll  realize  that  no  orga- 
nized searching  method  can  speed 
up  the  hunt  for  a  particular  item  in  a 
randomly  arranged  set  of  data.  If 
you  can't  tell  whether  a  word 
you've  found  should  come  before 
or  after  the  word  you're  looking  for, 
then  you'll  have  to  examine  every 
word  in  the  list  until  you  find  an 
exact  match.  Arranging  the  data 
into  alphabetical  or  numeric  order, 
called  sorting,  is  a  separate  problem 
and  has  been  considered  in  previ- 
ous articles.  Just  remember  that 
only  ordered  data  can  be  searched 
efficiently. 

The  simplest  way  to  find  a 
word  in  an  alphabetical  list  is  to 
start  at  the  A's  and  hunt  forward 
through  the  alphabet  until  you  find 
a  match,  A  sequential  search  of  this 
type  is  very  easy  to  program  (all 
you  need  is  a  FOR-NEXT  loop),  but 
it's  also  stow  and  inefficient.  When 
the  target  word  is  toward  the  end  of 
the  alphabet,  sequential  searching 
wastes  a  lot  of  time  looking  through 
all  the  preceding  words. 

Jump  To  The  Center 

The  binary  search  method  (called 
binary  because  it  repeatedly  divides 
the  data  list  in  half)  is  much  faster. 
Rather  than  starting  at  the  begin- 
ning of  the  alphabet,  it  jumps  in  at 
the  center.  Let's  look  at  the  example 
program  to  see  how  this  works. 
The  variable  B  stands  for  the  | 


beginning  of  the  word  list,  E  stands 
for  the  end,  and  C  represents  the 
center.  Say  that  your  target  word  is 
ATLANTA.  When  the  search  be- 
gins, line  200  finds  the  center  of  the 
ten-word  list  and  jumps  to  that  po- 
sition (in  this  case  finding  the  sixth 
word,  ANAHEIM).  Since  ANA- 
HEIM doesn't  match  ATLANTA, 
the  program  skips  to  line  250  for  a 
critical  test. 

At  this  point  the  database  is 
divided  into  two  blocks,  lower  and 
higher.  The  program  first  decides 
which  block  holds  the  target  word, 
then  jumps  to  the  center  of  that 
block  to  continue  the  search.  Since 
ATLANTA  comes  after  ANAHEIM 
in  the  alphabet,  it  must  be  stored  in 
the  higher  block  of  words.  Note 
that  in  just  one  step,  you've  elimi- 
nated the  need  to  look  at  anything 
in  the  first  half  of  the  database.  A 
sequential  search  (which  compares 
ATLANTA  to  ABILENE,  then  to 
AKRON,  then  to  ALBANY,  etc.) 
takes  six  steps  to  accomplish  the 
same  result. 

Now  it's  time  for  the  second 
jump.  Lines  260-270  set  a  new  be- 
ginning point  just  above  the  center 
(B  =  C  +  1)  and  go  back  to  line 
200.  The  program  finds  the  center 
of  the  new  list  (which  consists  of 
four  words,  ANCHORAGE  to 
AUSTIN)  and  jumps  to  that  posi- 
tion. This  time  the  target  word 
matches  the  found  word.  While  the 
binary  method  found  the  target 
word  with  only  two  comparisons,  a 
sequential  search  would  require 
nine  (eight  comparisons  to  elimi- 
nate ABILENE  through  ATHENS, 
and  a  ninth  to  confirm  ATLANTA). 

The  more  data  you  have,  the 
more  time  the  binary  method  saves. 
For  instance,  if  the  list  contains 
1,000  words,  most  words  are  found 
in  about  eight  comparisons  (the  se- 
quential method  usually  requires 
hundreds).  If  you  expand  the  list  to 
10,000  words,  only  about  twelve 


112     COMPUTEI     September  1986 


comparisons  are  required  (com- 
pared to  thousands  for  the  sequen- 
tial method),  The  secret  lies  in  the 
halving  technique.  By  repeatedly 
chopping  the  list  in  half,  this  meth- 
od quickly  eliminates  large  chunks 
of  data  from  consideration  and  ze- 
ros in  on  the  target.  Of  course, 
you're  not  limited  to  string  data. 
With  slight  modifications  this  rou- 
tine can  search  numeric  data  as 
well 

For  Instructions  on  entering  these  listings, 
pleos©  refer  to  "COWPUTEl's  Guide  to  Typing 
In  Programs"  pubiistied  bimonttily  in  compute!. 

Program  1 :  Jump  Search 
(General  Version) 


100 

N=10 

110 

DIM    S$(N),PP(N) 

120 

FOR    1=1    TO    N 

130 

READ    S$(I) ,PP(I) 

140 

NEXT    I 

150 

E=N 

160 

B=l 

170 

p=a 

180 

PRINT    "ENTER    CITY" 

190 

INPUT    C$ 

200 

C=INT( (E+l-B)/2)+B 

210 

IF    E-B<3    THEN    300 

220 

IP    C5<>S?(C)    THEN    250 

230 

P  =  C 

240 

GOTO    340 

250 

IF    C$<S$(C)    THEN    280 

260 

B=C+1 

270 

GOTO    200 

280 

E=C-1 

290 

GOTO    200 

300 

FOR    I-B    TO    E 

310 

IF    C$<>S5(I)    THEN    330 

320 

P=I 

330 

NEXT    I 

340 

IF    P<>0    THEN    370 

350 

PRINT    "DATA    NOT    FOUND." 

360 

GOTO    150 

370 

PRINT    S?(P>,PP(P) 

380 

GOTO    150 

999 

REM    CITY    &    POPULATION    DATA 

1006 

DATA    ABILENE, 89000 

101C 

DATA    AKRON, 237000 

1026 

DATA    ALBANY, 250000 

103E 

DATA    ALBUQUERQUE,  3  3  2000 

104C 

DATA    ALVERINA, 29000 

1050    DATA    ANAHEIM, 219000 

1060    DATA    ANCHORAGE, 174500 

107G 

DATA    ATHENS, 150000 

lase 

DATA    ATLANTA, 42 5000 

1096 

DATA    AUSTIN, 346000 

Program  2:  Atari  Line 

Changes 

110 

DIM    C» ( 15) , S« (N«15) ,P 

P(N):S«="     "!S*tN*15)= 

S»! S« (2)=S* 

130 

READ    C«, A: St ( ( I-l ) «15 

+  1  ,  I«15) =CS: PP ( I ) =A 

1<?0 

IIMPUT     C»:L  =  LEN(C«) 

220 

IF    C%< >S« (  (C-1 >  «15+1  , 

(C-I)*15+L)      THEN     250 

250 

IF    CS<S*(  (C-1 )  «15  +  1,  ( 

C-1) »15+L)     THEN    280 

310 

IF    C*<  >S« (  <  3-1  ) »15+1  , 

(I-l)*15+L)     THEN     330 

370 

PRINT    S* ( (P-1 > tl5+l , P 

»15),PP(P)                                    (g 

Part  2 


Philip  I.  Nelson 
Assistant  Editor 

The  second  installment  of  this  two- 
part  article  explores  the  Commodore 
128's  FILTER,  SOUND,  and  PLAY 
commands  and  includes  three  short 
demonstration  programs. 


In  Part  1  (COMPUTE!,  August  1985), 
we  discussed  the  Commodore  128's 
VOL,  TEMPO,  and  ENVELOPE 
commands  as  well  as  the  basics  of 
sound  envelopes  and  waveforms. 
This  month  we'll  examine  the  three 
remaining  sound  commands;  FIL- 
TER, SOUND,  and  PLAY,  Since 
your  128  User's  Guide  explains  the 
fundamentals,  we'll  focus  on  less 
obvious  features  and  note  how 
these  complex  commands  interact 
with  one  another. 

FILTER  Needs  PLAY 

Like  the  ENVELOPE  command 
(see  Part  1),  FILTER  does  nothing 
noticeable  until  you  turn  the  filter 
on  with  a  PLAY  statement.  Insert 
XI  inside  the  PLAY  string  wherever 
you  want  to  turn  the  filter  on,  and 
XO  where  you  want  to  turn  it  off.  If 
you  leave  out  the  X  parameter, 
PLAY  ignores  preceding  FILTER 
commands  (the  filter  remains  off). 
In  the  simplest  case  (a  FILTER  com- 
mand followed  by  PLAY"X1"),  the 
filter  affects  all  three  voices.  How- 


ever, you  can  also  filter  each  voice 
individually; 

FILTER  1000,1,0,0,15 
PLAY  "VI  XI  V2  XO  V3  XO 

These  statements  turn  the  low- 
pass  filter  on  for  voice  1  and  turn  it 
off  for  voices  2  and  3.  The  128 
remembers  which  voice  to  filter 
when  it  executes  subsequent  PLAY 
statements  (more  about  multivoice 
music  is  explained  below).  Howev- 
er, you  can  use  only  one  filter  set- 
ting at  a  time.  For  instance,  you 
can't  use  a  low-pass  filter  for  voice 
1  and  a  band-pass  filter  for  voice  2, 
Whenever  XI  appears  in  a  PLAY 
string,  the  128  uses  the  most  recent 
FILTER  setting.  If  no  FILTER  com- 
mand has  been  executed,  this  may 
result  in  silence. 

A  FILTER  Editor 

As  with  other  sound  effects,  the 
best  way  to  learn  is  to  listen  and 
experiment;  Program  1  below,  "128 
FILTER  Editor,"  lets  you  do  just 
that.  It's  self-prompting,  so  you 
need  only  type  it  in,  save  a  copy, 
and  run  it.  The  menu  screen  dis- 
plays all  the  current  filter  parame- 
ters and  lets  you  change  whatever 
you  like.  To  select  any  option,  press 
a  number  key  from  0  to  9  and  fol- 
low the  prompts.  The  program  be- 
gins with  no  filtering  (all  filters  off) 
for  comparison. 

Option  9  switches  you  to  the 
display  screen,  plays  an  ascending 
musical  scale  with  whatever  filter- 
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ing  you've  selected,  and  displays 
the  FILTER  statement  currently  in 
effect.  Once  you  find  a  filter  setting 
you  like,  write  down  the  FILTER 
statement  displayed  on  the  screen 
and  use  it  in  your  own  programs. 
From  this  screen  the  number  keys 
1-6  select  different  octaves  for  the 
scale.  Press  the  space  bar  to  return 
to  the  main  screen. 

Option  7  lets  you  select  any  of 
the  128's  ten  predefined  instrument 
envelopes,  and  option  8  controls 
the  tempo  at  which  the  scale  is 
played.  Note  that  some  of  the  pre- 
defined envelopes  don't  work  well 
at  fast  tempos:  The  note  ends 
before  the  sound  envelope  can 
complete  its  natural  cycle.  Use  a 
slower  tempo  to  slow  things  down 
and  study  a  particular  effect. 

The  SID  filter  is  a  bit  notorious. 
While  it  works  fine  on  some  ma- 
chines (my  old  64  has  a  great  one), 
its  performance  may  vary  from  one 
SID  chip  to  the  next.  The  m.anual 
for  our  preproduction  128  notes 
that  filtering  "cannot  be  counted 
on,"  suggesting  that  nothing  was 
done  to  improve  the  128's  filter. 
With  practice  you  should  be  able  to 
achieve  satisfactory  effects  on  your 
own  machine,  though  they  might 
sound  somewhat  different  on  an- 
other computer. 

The  SOUND  Command 

SOUND  is  a  very  powerful  com- 
mand intended  for  sound  effects 
rather  than  music.  Unlike  PLAY 
(which  defaults  to  maximum  vol- 
ume), SOUND  has  a  default  vol- 
ume setting  of  zero.  Thus,  you  must 
turn  the  volume  up  with  VOL 
before  the  first  SOUND  statement 
in  a  program.  And  whereas  PLAY 
delays  the  rest  of  your  program  un- 
til it  completes  the  current  PLAY 
string,  SOUND  statements  play  "in 
the  background"  while  the  pro- 
gram continues.  To  demonstrate, 
enter  NEW  and  press  RUN/STO- 
P-RESTORE (to  dear  the  SID  chip), 
then  type  in  and  run  the  following 
two-line  program: 

10  VOL15:SOUbID  1,  5000,  200  :SOUN 
D  2, 4000, 200: SOUND  3,3000,2 
00 

20  FORJ=1TO10: PRINT "PROGRAM  CO 
NTINUING " : NEXT  t  PRINT " DONE " 

Notice  how  the  three-voice 
sound  continues  even  after  this  pro- 
gram ends  and  returns  the  computer 
to  READY  mode. 


The  first  number  in  a  SOUND 
statement  (1,  2,  or  3)  picks  one  of 
the  128's  three  voices.  By  using  dif- 
ferent voice  numbers,  you  can  play 
up  to  three  sounds  at  once.  Howev- 
er, the  128  ordinarily  waits  until  a 
voice  has  finished  the  current 
SOUND  statement  before  starting  a 
new  SOUND  statement  for  that 
voice.  To  illustrate,  in  line  10  of  the 
above  program,  change  the  2  and  3 
to  1;  then  run  it  again.  Now  voice  1 
plays  three  notes  in  sequence. 

In  most  cases  SOUND'S  back- 
ground-playing ability  is  desirable: 
Sound  effects  don't  slow  down  the 
rest  of  your  program.  However,  in 
other  cases  you  might  want  to  inter- 
rupt a  sound  immediately  (if,  for 
example,  the  user  wants  to  exit  the 
program).  Fortunately,  this  is  easy 
to  do:  SOUND  statements  with 
zero  duration  take  effect  immedi- 
ately, whether  or  not  preceding 
sounds  have  finished.  Thus, 
SOUND  1,0,0  silences  voice  1;  use 
FOR  J  =  l  TO  3:  SOUND  J,0,0: 
NEXT  to  silence  all  three  voices. 

Since  variables  can  be  used  for 
any  SOUND  parameter,  you  can 
create  more  dynamic,  integrated  ef- 
fects by  incorporating  other  pro- 
gram variables  in  SOUND 
commands.  For  example,  say  that 
your  game  uses  the  variable  X  to 
represent  a  spaceship's  screen  posi- 
tion. To  make  a  cruising  sound,  you 
might  substitute  something  like 
X*1000  for  the  frequency  number 
in  a  SOUND  command. 

A  SOUND  Editor 

"128  SOUND  Editor,"  listed  below, 
lets  you  experiment  with  SOUND 
commands  and  design  sound  ef- 
fects for  your  own  programs  using 
up  to  three  voices  at  once.  Type  in 
and  save  Program  2,  then  run  it. 
The  first  thing  you'll  hear  are  three 
complex,  multivoice  sound  effects 
(don't  worry  if  they're  not  exactly  to 
your  taste — you'll  soon  know 
enough  about  SOUND  to  replace 
them  with  your  own).  Next,  the 
editing  screen  appears,  displaying 
ten  options  and  all  the  current 
SOUND  parameters  (your  User's 
Guide  explains  the  meaning  of  each 
parameter).  To  choose  an  option, 
press  a  number  key  from  0  to  9.  The 
program  instructs  you  how  to  pro- 
ceed and  does  not  let  you  enter 
inappropriate  values. 


Option  1  lets  you  switch  from 
one  voice  to  another.  Option  9 
switches  you  to  the  display  screen, 
which  plays  the  current  sound  and 
displays  the  SOUND  statements 
that  create  it.  It's  fun  to  experiment 
with  128  SOUND  Editor,  and  it  can 
save  a  lot  of  programming  time. 
Use  it  to  design  exactly  the  sound 
you  want,  then  copy  the  SOUND 
statements  from  the  display  screen 
and  use  them  in  your  programs. 
(Though  the  program  can  play 
sounds  with  one,  two,  or  three 
voices  at  once,  it's  not  necessary  to 
use  multiple  voices.  Zero-duration 
SOUND  statements  produce  no 
sound  and  may  be  ignored.) 

The  PLAY  Command 

Designed  for  real  music-making, 
PLAY  is  the  most  versatile  of  all  the 
128's  sound  commands.  As  out- 
lined in  the  User's  Guide,  PLAY 
works  much  like  the  familiar 
PRINT  statement.  Each  PLAY  com- 
mand is  followed  by  a  string  con- 
taining special  control  characters. 
The  letters  A-F  are  interpreted  as 
notes;  thus,  the  statement  PLAY"C 
D  E  F"  plays  the  four  notes  C-D-E- 
F.  In  the  last  example  PLAY  was 
followed  by  a  string  of  characters 
enclosed  in  quotation  marks.  How- 
ever, PLAY  can  also  handle  string 
variables  (A$  =  "C  D  E  F":  PLAY 
A$). 

To  see  this  method  at  work, 
type  in  and  save  Program  3,  "128 
PLAY  Demonstrator,"  It  plays  a 
short.  Bach-like  tune  with  several 
different  instrument  envelopes. 
Note  that  all  of  the  music  control 
characters  are  stored  in  DATA 
statements.  Line  50  READs  each 
line  of  data  into  a  string  named  A$, 
and  the  subroutine  at  line  20 
PRINTS  each  music  string  just 
before  it  is  PLAYed. 

Like  other  strings,  PLAY 
strings  can  be  concatenated  (com- 
bined) with  the  +  operator,  and 
manipulated  with  any  of  the  string- 
related  functions:  MID$,  LEFTS, 
RIGHTS,  LEN,  VAL,  CHR$,  ASC, 
and  STR$.  Program  1  contains  sev- 
eral different  examples. 

For  complex  music  you  might 
want  to  store  PLAY  strings  in  a 
string  array.  For  instance,  the  fol- 
lowing statement  stores  100  ele- 
ments of  music  data  in  a  string 
array  named  M$(  ):  FOR  J  =  l  TO 
100:  READ  M$(J):  NEXT.  Once  the 
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music  array  is  created,  you  can 
quickly  access  any  string  it  con- 
tains: PLAY  M$(3)  plays  the  third 
music  string  held  in  M${ ),  and  so 
on.  This  is  very  helpful  for  repeat- 
ing certain  passages.  You  may  also 
find  it  useful  to  create  separate  ar- 
rays for  different  purposes  (one  to 
store  notes,  another  for  duration 
characters,  and  so  forth). 

Murtivoice  Music 

Since  the  SID  chip  has  three  voices, 
PLAY  can  play  up  to  three  notes 
simultaneously.  The  V  control 
character  (followed  by  1,  2,  or  3) 
determines  which  voice  is  affected. 
Thus,  the  statement  PLAY  "VI  C 
V2  E  V3  G"  plays  a  simple  three- 
note  chord.  After  processing  VI  C, 
the  128  "looks  ahead"  to  see 
whether  it  should  play  other  notes 
at  the  same  time;  however,  the 
computer  looks  ahead  only  as  far  as 
the  next  note.  Thus,  the  statement 
PLAY  "VI  CDE  V2  CDE"  does  not 
piay  the  notes  C-D-E  simultaneous- 
ly with  two  voices.  Instead,  it  plays 
two  sequential  notes  (C-D)  with 
voice  1,  then  two  simultaneous 
notes  (E  and  C)  with  voices  1  and  2, 
followed  by  two  sequential  notes 
(D-E)  with  voice  2. 

When  all  voices  play  notes  of 
the  same  duration,  multivoice  mu- 
sic is  not  particularly  difficult  to 
write:  Insert  VI  before  each  note  for 
voice  1,  V2  before  each  voice  2 
note,  and  so  forth  (concatenations 
like  A$  =  "Vr'-hA$  can  help  con- 
dense the  otherwise  cumbersome 
code).  However,  when  different 
voices  play  notes  of  different  dura- 
tions, you  must  make  sure  that  all 
the  durations  add  up. 

For  instance,  you  might  want 
voice  1  to  hold  a  long  whole  note 
while  voice  2  plays  a  series  of  six- 
teenth notes.  To  keep  the  timing 
straight,  you  should  not  let  voice  1 
play  another  note  until  voice  2  has 
finished  the  equivalent  of  a  whole 
note  (16  sixteenths  or  whatever). 
Similarly,  the  timing  may  be 
thrown  off  if  voice  2  plays  more 
than  16  sixteenths  before  voice  1 
gets  back  in  the  act.  The  M  control 
character  supposedly  tells  the  128 
to  wait  until  all  voices  finish  the 
current  measure  before  moving 
ahead.  But  M  is  just  an  adjuster.  It 
can't  magically  repair  music  that 
doesn't  add  up  in  the  first  place. 


Interactions 

As  noted  throughout  this  article, 
certain  128  sound  commands  work 
with  certain  others.  The  VOL  com- 
mand, for  instance,  is  needed  only 
for  SOUND  statements  (PLAY  sets 
volume  independently  with  the  U 
control  character).  TEMPO,  FIL- 
TER, and  ENVELOPE,  on  the  other 
hand,  seem  designed  to  work  with 
PLAY.  TEMPO  is  irrelevant  to 
SOUND  (which  sets  its  own  dura- 
tion and  so  on);  ENVELOPE  and 
FILTER  have  no  effect  until  acti- 
vated by  PLAY. 

However,  other  interactions 
are  possible  (at  least  on  our  128, 
admittedly  a  preproduction  model). 
For  instance,  though  the  SOUND 
statement  provides  no  way  to  turn 
on  the  filter,  SOUNDs  can  be  af- 
fected by  "leftover"  filter  settings. 
If  the  128  executes  a  FILTER  state- 
ment followed  by  PLAY"X1",  the 
filter  remains  on  and  affects  sub- 
sequent SOUND  statements. 
PLAY"XO"  turns  the  filter  off  for 
SOUND  as  well  as  for  PLAY. 

This  interaction  can  be  viewed 
either  as  an  advantage — filtering  is 
otherwise  unavailable  with 
SOUND — or  as  a  pitfall  for  unwary 
programmers.  To  prevent  unwant- 
ed interactive  effects,  begin  sound 
and  music  programs  by  setting  all 
sound  parameters  at  zero  or  default 
values.  Commodore  64  program- 
mers often  clear  the  SID  chip  with 
FORJ  =  54272  TO  54296:  POKE  j,0: 
NEXT.  Though  this  statement  does 
clear  the  128's  SID  chip,  it  doesn't 
necessarily  change  the  128's  sound 
settings,  which  are  recorded  else- 
where in  memory. 

For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  published  bimonthly  in  compute!. 

Program  1 :  128  FILTER 

Editor 

100  GO.SUB570:GOTO310 

110  F0RJ=1T03:S0UNDJ, 0,0: NEXT: 

FILTERS, 0 ,0,0,0: RETURN 
120  PLAY  A?: RETURN 
130  LPS  =  "  OFF"':IFLP=lTHENLP5=" 

[RVSlON  {OFF}" 
140  RETURN 
150  BP$="  0FF";IFBP=1THENBP$=" 

(RVSlON  fOFF}" 
160  RETURN 
170  HP$="  0FF":IFHP=1THENHP?=" 

( RVSlON  [OFF]" 
180  RETURN 
190  PRINTD5"SET  CUTOFF  FREQUEN 

CY  (0-2047}" 
200  INPUTA:IFA<0ORA>2047THENGO 

SUB550:GOTOi90 


210  FQ=A: RETURN 

220  LP=ABS(LP=0) : RETURN 

230  BP=ABS(BP=0 ): RETURN 

240  HP=ABS(HP=0) : RETURN 

250  PRINTD$"SET  FILTER  RESONAN 

CE  (0-15T" :INPUTA:IFA<0ORA 

>15THENGOSUB550!GOTO250 
260  RE=A: RETURN 
270  PRINTD? "CHOOSE  SOUND  ENVEL 

OPE  (0-9T":INPUTA!lFA<0ORA 

>9THENGOSUB5  50:GOTO270 
280  WV?="T"+CHRS(A+48} : RETURN 
290  PRINTD? "CHOOSE  TEMPO  (1-25 

5 ) " : INPUTA: IFA<10RA> 255THE 

NGOSUB5  50:GOTO290 
300  TM=A: RETURN 
310  PRINT" ICLR} tRVS}  128  FILTE 

R  EDITOR  ": PRINT 
320  ?rInT"1  {RVS}  frequency 

(off}"fq"(leftT{4  spaces}" 

330  PRINT"2  {RVS)  LOW 

{2    SPACES} PASS  (OFF]";:GOS 

UB130:PRINTLP$ 
340  PRINT "3  tRVS}  BAND  PASS 

{OFF}"; :GOSUB150;PRINTBP5 
3  50  PRINT "4  {RVS}  HIGH  PASS 

[OFF}"; !GOSUB170:PRINTHPS 
360  PRINT "5  {RVS}  RESONANCE 

{  OFF}  "r  RE"  {LEFT}  ":PRIfIT" 

{2  SPACES) { RVS} 

{OFF)" 

370  PRINT "7  (RVS)  ENVELOPE 

{2  SPACES) {OFFT  "MID?(WVS, 
2)T5(VAL(MIDS(VAf?,2))) 

380  PRINT "8  (RVS)  TEMPO 

{5  SPACES) (0FFT"TM" [LEFT} 
(2  SPACES) ":PRINT"9  {RVS} 
{SPACE} PLAY (6  SPACES) {OFF} 
":PRItIT"^0  {RVS)  QUIT 
{6  SPACES) C OFF) {DOWN}" 

390  PRINT" { RVS lENTER  YOUR  CHOI 
CE  (0-9)"tPRINT"{3  SPACES) 
{UP}" 

400  GETKEYA$ : 1FA$  < " 0"ORAS> " 9 "O 

RA$  =  " 6 "THENPRINT :G0SUB5  50 : 

PRINT :GOTO390 
410  IFA5="9"THEN440 
420  IFA$="0"THENEND 
430  ONVAL(A5)GOSUB190,220,230, 

240,250,250,270,290:PRINTE 

5!GOTO3  20 
440  PRINTCHR$( 147) "OCTAVE  "HID 

$(OC5,2)CHR?(13T 
450  PRINT"L0W{2  SPACES} PASS  "L 

P$ :PRINT"BAND  PASS  "BP$:PR 

INT "HIGH  PASS  "HP?: PRINT 
460  PRINT" { RVS }CURRENT  FILTER 

[ SPACE  j  STATEMENT: ": PRINT : P 

RINT" FILTER  "; 
470  PRINTMID? ( STR? ( FQ ) , 2 ) "  ,  "MI 

D? ( STR? ( LP ) , 2 ) " , "MID? ( STR? 

(BP),2)","; 

480  PRINTMIDS(STR5(HP),2)", "MI 

D5(STR$(RE) ,2) :PRINT;FILTE 

R  FQ,LP,BP,HP,RE 
490  PRINT "PRESS  {RVS}  1-6 

(OFF)  FOR  OCTAVE "CHR$( 13 )S 

PC(6)"{RVS}  SPACE  fOFF)  TO 
EXIT" 
500  F?="X0  " tIFLP=10RBP=10RHP= 

1THENF5="X1  " 
510  A9=F$+WV$+"S":GOSUB120!TEM 

PO  TM 
520  GET  B?:IFB?=CHR?(32)THENGO 

SUB110SGOTO310 
530  IFB5=>"l"ANDBS<="6"THENOC$ 

="0"+CHRSCVAL(B?)+48) :PRIN 

T"{H0ME}"SPC(6)VAL(B$) 
540    A5=OC?+"CDEFGAB":GOSUB120! 

GOTO52  0 
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550  GOSUB110:FORJ=1TO3:SOUNDJ, 

1000+J*500, 15,0,0,0, 2, J*10 

00:NEXT 
560  PRINT"  {up)  (RVS)_INAPPROPRIA 

TE " s  SLEEPl : P  RINT" { UP ) 

(13  SPACES} (3  UP}": RETURN 
570  PRINTCHR?(14)CHR?{8) :FORJ= 

54272TO54296:POKEJ,0:NEXT: 

VOL15£D?=CHR?(19) 
580  FORJ=lT015:D5=D$+CHRS(17) : 

NEXT : FQ=1000 : LP=0 ! BP=0 :HP= 

0:RE=15  :lfV5  =  "T7"  :TM=55 
590  F0RJ=1T035:X$=X$+CHR?(32) : 

NEXT : E$=D5+X5+CHR5 ( 13 ) +X$+ 

CHRS(19)+CHR5(13} 
600  FORJ=0TO9:READX5jT$(J)=" 

{2  SPACES )"+X$:NEXT:0C5="0 

3":GOSUB110tRETURN 
610  DATA"PIAN0{6  SPACES )", "ACC 

ORDION{ 2  SPACES } " , "CALLIOP 

E[3  SPACES)", "DRUM 

[7  SPACES)", "FLUTE 

{6  SPACES)" 
620  DATA"GUITAR{5  SPACES)", "HA 

RPSICHORD", "ORGAN 

{6  SPACES) " , "TRUMPET 

{4  SPACES)", "XYLOPHONE 

(2  SPACES)" 

Program  2:  128  SOUND 
Editor 

10  GOSUB30:GOSUB570:GOTO320 
20  PRINT" 5CLR)[RVSJ 128  SOUND  E 

DITOR" : PRINT : RETURN 
30  FORJ=1T03 :SOUNDJ,0,0!NEXT;R 

ETURN 
40  PRINTD?" CHOOSE  VOICE  (1-3)" 
: INPUTAs IFA<10RA>  3THENGOSUB 
550:GOTO40 
50  VC=A: RETURN 
60  PRINTD? "CHOOSE  FREQUENCY  (0 

-65535)" 
70  INPUTA:IFA<0ORA>6  553  5THENGO 

SUB550:GOTO60 
80  FO(VC)=A: RETURN 
90  PRINTD? "CHOOSE  DURATION  (60 

0=10  SECONDS)" 
100  INPUTA:IFA<0THENGOSUB550:G 

OTOg0 
110  DU(VC)=Aj RETURN 
120  PRINTD? "CHOOSE  DIRECTION  0 

F  SOUND  SWEEP" 
130  PRINT"0=UPE2  SPACES 3  1=D0V7N 

{2  SPACES } 2=0SC ILLATE " !lNP 

UTA:IFA<0ORA>2THENGOSUB5  50 

:GOTO120 
140  DI(VC)=A: RETURN 
150  PRINTD? "CHOOSE  MINIMUM  FRE 

QUENCY  FOR" 
160  PRIKT"SOUND  SWEEP  (0-65535 

) " jINPUTA: IFA<0ORA>65535TH 

ENGDSUB550:GOTO150 
170  IFA=>FQ(VC)THESGOSUB550:GO 

TO150 
180  MI {VC)=A: RETURN 
190  PRINTD? "CHOOSE  STEP  VALUE 

{SPACE) FOR  SOUND  SWEEP" 
200  PRINT"(LESSER  OF  32767  OR" 

FQ(VC>-HI(VC)+1"{LEIT) )" 
210  INPUTA!lFA<0ORA>32767THENG 

OSUB5  50:GOTO190 
220  IFA>(FQ(VC)-MI(VC))THENGOS 

UB550:GOTO190 
230  SV(VC)=A:RETURN 
240  PRINTD? "CHOOSE  WAVEFORM 

{SHIFT-SPACE) [5  SPACES )0=T 

RI ANGLE" 
250  PRINT"1=SAWT00TH{2  SPACES) 

2=PULSE{2  SPACES )3=WHITE  N 

01 SE" 


260  INPUTA!lPA<0ORA>3THENGOSUB 

550:GOTO240 
270  WV(VC)=A: RETURN 
280  PRINTD? "CHOOSE  PULSE  WIDTH 

290  PRINT"(0-4095}":INPUTA:IFA 

<0ORA>4095THENGOSUB550:GOT 

0280 
300  PW(VC)=A:RETURN 
310  GOSUB20 
320  PRINT "1  (RVS)  VOICE 

{6  SPACES) [oFFT"VC SPRINT" 2 
{RVS 3  FREQUENCY {2  SPACES] 

(OFF) "FQ(VC)" {LEFT) 

{4  SPACES)" 
330  PRINT"3  {RVS)  DURATION 

{3  SPACES) {0FFT"DU(VC)" 

{LEFT) {4  SPACES)" 
340  PRINT"4  [RVS)  DIRECTION 

{2    SPACES) [0FFT"DI(VC)DI5{ 

□I(VC)> 
350  PRINT"5  (RVS)  MINIMUM 

{4  SPACES) {0FFT"MI(VC)" 

{LEFT){4  SPACES )"iPRINT "6 

(space) [rvs]  step  value 
(off)"sv(vc)"Tleft} 

(4  SPACES)" 
360  PRINT "7  (RVS)  WAVEFORM 

(3  SPACES) {0FFT"WV(VC)WV$( 

WV(VC)) 
370  PRINT "8  {RVS)  PULSEWIDTH 
{0FF)"PW(VC}"{LEFT) 
(4  SPACES)" 
380  PRINT "9  (RVS)  HEAR  SOUND 

(OFF)":PRIbrr"0  (RVS)  QUIT 

(7  SPACES) (off) " SPRINT 
390  PRINT" (RVS )ENTER  YOUR  CHOI 

CE  (0-9)":PRINT" {3  SPACES) 

{  UP )  " 
400  GETKEYA?:IFA5<"0"ORA?>"9"T 

HENPRINT:GOSUB550:PRINT:GO 

TO390 
410  IFA$="9"THEN440 
420  IFA?="0"THENGOSUG30:END 
430  ONVAL(A?)GOSUB40,60,90, 120 

,150,190,240,280:PRINTE5 :G 

OTO3  20 
440  PRINT"  (CLR) THE  FOLLOVflNG  S 

OUND  STATEMENTS": print" 

[2  SPACES) CREATE  THE  SOUND 

S  YOU  HEAR . " 
450  PRINT "ZERO-DURATION  SOUNDS 

ARE  SILENT." 
460  FORJ=1T03:SOUNDJ,FQ(J),DU( 

J) ,DI(J),MI(J),SV(J) ,WV(J} 

,PW(J) :NEXT 
470    F0RJ=1T03: PRINT; PRINT "SPUN 

D    "; 
480    PSINTM1D?(STRS(J) ,2)", "HID 

S(STR?(FQ(J)),2)",  "MID? (ST 

R?  (  DU  (  J  )  )  ,  2  )  "  ,  "  ; 
490    PRINTMID?(STRS(DI( J) ) ,2)", 

"MIDS(STR5(MI{ J) ) ,2)", "MID 

?(STR$(SV(J)-),2)","; 
500  PRINTMIDS(STR?(WV( J) ),2)", 

"MID?(STR$(PW( J) ) ,2) :NEXT 
510  PRINT: PRINT "PRESS  ( RVS ) RET 

URN{0FF)  TO  EXIT":PRINTSPC 

(6)" (RVSjSPACE  {OFF)  TO  RE 

PEAT" 
520  GETKEYAS:IFAS=CHR5{13)THEN 

GOSUB30:GOTO310 
530  IFA?=CHR?(32)THENGOSUB30:G 

OTO440 
540  GOTO520 
550  GOSUB30:FORJ=1TO3:SOUNDJ,1 

000+J* 500, 15, 0,0, 0,2, J* 100 

0SNEXT 
560  PRINT"  (UP)  (RVS)  I^NAPPROPRIA 

TE" ! SLEEPl rPRINT" (UP) 

(13  SPACES) [3  UP)": RETURN 


570    PRINTCHR?(14):D?=CHR$(19) : 

FORJ=5  4272TO54296:POKEJ,0: 

NEXT:F0RJ=1T015 
580    D?=D?+CHR?(17) :NEXT:G0SUB2 

0  :V0H5  :  F0RJ=1T038  :X?=X?+C 

HR5(32):NEXT 
590    VC=1:E?=D$+X?+CHR?(13)+X$+ 

CHR? ( 13 ) +X?+CHR$ ( 19 ) +CHR$ ( 

13) 
600    FORK=2000TO4000STEP220:FOR 

J=1T03 : SOUNDJ , K*  2+ J*  20,45, 

2,K,K/3,2,4095-K 
610    NEXTJ,KsFORJ=45T01STEP-5:S 

OUNDl,J*1000,5,i,j*i00,j*2 

80,2,2300 
620    SOUND2,3200-J*20,5,0,0,0,2 

, 1500 : S0UND3 , J* 1200, 5 , 1 , J* 

120,J*300,2,3000 
630  NEXT:PORJ=1TO3:SOUNDJ,1000 

0,200,1,J*2000, J*400,2,2  3a 

0:NEXT:FORJ=1TO3 
640  READF0(J),DU(J),DI{J),MI(J 

),SV(J),WV(J),PW(J) :NEXT:F 

ORJ=aT03!READA$ 
650    WV?(J)=" "+A5:NEXT:FORJ 

=0TO2:READA5:DI?( J)=" " 

+A? : NEXT: RETURN 
660  DATA10000,260,2,2000,60,2, 

2000 ,0,0,0,0,0,0,2000,0,0, 

0,0,0,0,2000 
670  DATA "TRIANGLE", "SAWTOOTH", 

"PULSE (3  SPACES}", "NOISE 

{3  SPACES}"  ~ 

680  DATA"UPVfflRD{3  SPACES}", "DO 
WNWARD  ", "OSCILLATE"     ~ 


Program  3:  128  PLAY 
Demonstrator 

10  GOTO30 

20  PRINTA?:PLAYA$:RETURN 

30  PRINTCHRS(147)CHR?{14)SPC(3 

) CHR? ( 18) "128  PLAY  DEHONSTR 

AT0R"CHRS(13) 
40  FORJ=54272TO54296:POKEJ,0:N 

EXT : F I LTE R0 , 0 , 0 , a : FOR J=1T03 

: SOUNDJ, 0,0!NEXT 
50  READA? :IFA?<>"Z"THEKGOSUB20 

:GOTO50 
60  PRINT:PRINTSPC(2)CHR?{18)"P 

RESS  P  TO  PLAY  AGAIN,  Q  TO 

(SPACE) QUIT" 
70  GETKEYG? :IFG?="P"THENRUN 
80  IFG$<>"Q"THEN70 
90  END 

100  DATA  U15  X0  VI  S 
110  DATA  T7  05  C  04  B  05  IC  SO 

4  GRERGR 
120  DATA  T6  CDC  03  B  04  IC 


S03 


GRERGR 
130  DATA  T7 
140  DATA  04 
150  DATA  05 


CGDGEGDGC 
C  03  BAGFEDC 
C  04  BAG FED 
160  DATA  T6  CGDGEGFGEGDG 
170  DATA  CG  03  #A  04  G  03  A  04 
04  G 
F  R  05  FE  I  F  S  DR 


G    03    G 
1S0    DATA    03 

04    BR    05    DR 
190    DATA    T2    G    06    G    05    A    06    G    0 

5    B    06    G    C    06    GDGFG 
200    DATA    ERDCDGC    05    B 
210    DATA    T4    ERDCDGC    04    B 
220    DATA    T6    ERDCDGC   03    B 
230    DATA    T0    ERDCDGC    02    EC 
240    DATA    T7    03    CDEFGABC 
2  50    DATA    04    CDEFGABC 
260    DATA    05    CDEFGAB 
270    DATA    06    CR    05    CR    I    03    CR 
50000    DATA    Z  © 
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EASY 

Apple 
Screen  Editing 


Roland  Brown 

Here's  a  way  to  make  BASIC  pro- 
gramming easier  and  more  fun:  an 
advanced  screen  editor  that  makes  up 
for  the  Apple's  lack  of  full-screen  edit- 
ing. COMPUTE!  published  an  earlier 
version  of  this  utility,  "BASIC  Line 
Editor,"  in  February  1983.  This 
month's  all-new  version  has  been  up- 
dated and  enhanced  to  work  on  any 
Apple  U-series  computer  (including 
the  ApjAe  He)  zvith  DOS  3.3  or  Pro- 
DOS,  in  80-column  as  well  as  40- 
column  mode. 


Although  Applesoft  BASIC  is  a 
powerful  language,  its  screen  editor 
leaves  much  to  be  desired.  Some 
Apple  II  owners  invest  in  a  ROM 
editor,  others  write  their  programs 
with  a  word  processor,  and  the  rest 
just  suffer  with  the  frustrating  ES- 
Cape  codes.  But  ROM  editors  cost 
money,  word  processors  don't  let 
you  flip  back  and  forth  between  the 
text  editor  and  BASIC  to  test 
changes,  and  suffering  isn't  ahvays 
good  for  the  soul.  So  here's  a  better 
solution:  "BASIC  Line  Editor,"  a 
powerful  utility  that  lets  you  easily 
modify  BASIC  program  lines. 

To  prepare  the  BASIC  Line 
Editor,  type  in  and  save  the  pro- 
gram listed  below.  It's  a  BASIC  file- 
maker  that  POKEs  the  machine 
language  program  into  memory, 
then  BSAVEs  it  to  disk  as  a  binary 
file  (named  BLE2  to  distinguish  it 
from  BLE,  the  original  version  of 
the  program). 

Once  you've  run  the  filemaker, 
you're  ready  to  use  the  BASIC  Line 
Editor.  Start  it  by  typing  BRUN 
BLE2  and  pressing  RETURN,  The 
program  loads  at  memory  address 


$2000,  then  checks  to  see  which 
operating  system  is  present  before 
moving  itself  to  a  safe  location. 
(Note  that  this  process  can  destroy 
part  of  a  long  BASIC  program.  If 
you  have  a  long  BASIC  program  in 
memory,  you  should  save  it  before 
you  activate  the  BASIC  Line 
Editor.) 

Now  you're  ready  to  put  the 
Editor  to  work.  To  edit  a  BASIC 
program  line,  type  &  followed  by 
the  desired  line  number.  For  in- 
stance, enter  &100  to  edit  line  100. 
The  BASIC  Line  Editor  displays  the 
line  on  the  screen  in  a  format  some- 
what different  than  Applesoft's. 
The  line  is  continuous  rather  than 
centered  on  the  screen,  there  are  no 
extra  spaces  in  the  line  except  be- 
tween quotation  marks,  and  all 
control  characters  are  displayed  in 
inverse  video. 

Editing  Commands 

The  BASIC  Line  Editor  provides  13 
new  editing  functions.  Most  are  ac- 
cessed by  pressing  the  CTRL  (Con- 
trol) key  together  with  a  letter  key. 
Here's  a  quick  reference  table  fol- 
lowed by  a  detailed  description  of 
each  command: 


CTRL-B 

block  back 

CTRL-C 

convert  hex  to  decimal 

CTRL-D 

delete  right 

CTRL-F 

block  forward 

CTRL-H 

cursor  left 

CTRL-1 

insert 

CTRL-M 

return 

CTRL-S 

search 

CTRL-T 

truncate 

CTRL-U 

cursor  right 

CTRL-V 

verbatim 

DELETE 

delete  left 

ESC 

return  to  BASIC 

CTRL-B  (block  back)  moves 
the  cursor  back  to  the  previous  co- 
lon, or  if  there  is  no  previous  colon, 
to  the  beginning  of  the  line, 

CTRL-C  (convert  hex)  converts 


hexadecimal  numbers  to  decimal. 
This  command  moves  the  cursor 
above  the  line  being  edited,  prints  a 
$  prompt  on  the  screen  and  waits 
for  you  to  enter  a  number.  This 
value  is  converted  to  decimal  and 
printed.  Then  the  cursor  returns  to 
its  original  position  on  the  line. 

CTRL-D  (delete  right)  deletes 
the  character  under  the  cursor.  The 
cursor  stays  where  it  is  and  every- 
thing to  the  right  moves  back  one 
space. 

CTRL-F  (block  forward)  moves 
the  cursor  forward  to  the  next  co- 
lon, or  if  there  is  no  colon,  to  the 
end  of  the  line. 

CTRL-H  (cursor  left)  moves 
the  cursor  back  one  space. 

CTRL-I  (insert)  puts  the  BASIC 
Line  Editor  in  insert  mode.  Any 
characters  you  type  are  inserted  in 
the  line  until  you  use  another  Edi- 
tor command, 

CTRL-M  (return)  is  the  same  as 
pressing  RETURN.  No  matter 
where  the  cursor  is  located  on  the 
line,  pressing  CTRL-M  enters  the 
line  into  the  program. 

CTRL-S  (search)  searches  for 
the  next  character  entered. 

CTRL-T  (truncate)  truncates 
the  line  at  the  cursor  position  (de- 
letes everything  after  the  cursor). 
The  cursor  ends  up  one  space  be- 
yond the  new  end  of  the  line. 

CTRL-U  (cursor  right)  moves 
the  cursor  forward  one  space. 

CTRL-V  (verbatim)  lets  you 
enter  control  characters  verbatim.  If 
the  keypress  immediately  after 
CTRL-V  is  a  CTRL  key  combina- 
tion, it  is  interpreted  as  a  control 
character  rather  than  as  a  BASIC 
Line  Editor  command.  CTRL-V  is 
useful  for  adding  RETURN  (CTRL- 
M)  or  backspace  (CTRL-H)  charac- 
ters to  a  line  for  improved  printing 
control.  If  the  keypress  immediate- 
ly following  CTRL-V  is  not  a  CTRL 
key  combination,  CTRL-V  has  no 
effect.  Remember  that  the  BASIC 
Line  Editor  shows  control  charac- 
ters in  reverse  video. 

DELETE  (delete  left)  deletes 
the  character  to  the  left  of  the  cursor 
and  moves  the  cursor  back  one 
space.  (The  DELETE  key  is  found 
only  on  the  He  and  lie.) 

ESC  (return  to  BASIC)  puts 
you  back  in  BASIC.  If  you  make  a 
mistake  when  editing  a  line  with 
the  BASIC  Line  Editor,  press  ESC  to 
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exit  back  to  BASIC  without  losing 
the  line. 

Program  Notes 

Activating  the  Editor  resets  the 
stack  to  the  same  level  as  does 
BASIC,  sets  up  the  ampersand  vec- 
tor ($3F5),  moves  the  DOS  buffers 
downward  to  protect  DOS,  and  re- 
starts BASIC.  The  Editor  uses  exist- 
ing BASIC  routines  to  read  the 
input  line  and  find  the  desired  line 
in  memory.  If  you  try  to  edit  a  line 
that  doesn't  exist,  the  Editor  simply 
returns  to  BASIC.  If  the  line  is 
found,  its  contents  are  read  and 
listed  on  the  screen.  Text  characters 
are  listed  just  as  they  are  stored. 
When  the  Editor  finds  a  token  (an 
encoded  BASIC  keyword),  it  locates 
the  word  in  the  BASIC  keyword 
table  and  lists  it  on  the  screen. 

Once  the  Editor  lists  the  line,  it 
enters  editing  mode.  This  part  of 
the  program  gets  a  command  from 
the  keyboard,  processes  it,  and  up- 
dates the  screen.  Space  doesn't  per- 
mit a  detailed  explanation  of  how 
each  Editor  command  works.  If 
you're  familiar  with  Apple  machine 
language  programming,  you  may 
find  it  interesting  to  trace  through 
the  various  routines  on  your  own. 

BASIC  Line  Editor 

Version  By  Tim  Victor,  Editorial 

Programmer 

For  instructioris  on  entering  this  listing,  please 

refer  to  "COMPUTEI's  Guide  to  Tvping  In 

Programs"  published  bimonthly  in  compute!. 

53  G0  FDR  I  =  8192  TO  9157!  READ 

As  POKE  l,As  NEXT 
31  90  PRINT  CHR»  (4) ;  "BBAVE  BLE2 

, A«2000 , L«3C6 " !  END 
IE  100  DATA  173,0,191,201,7^,208 

, 13, 169,3,32 
iB  110  DATA  245,190,24,165,116,1 

05,4,76,27,32 
SB  120  DATA  56,165,116,233,3,133 

,116,133,207, 141 
2D  130  DATA  175,32,165,115,133,2 

06, 141,174,32,169 
21  140  DATA  177,133,235,169,32,1 

33,236,160,0,177 
AB  150  DATA  235,145,206,230,206, 

208,2,230,207,230 
85  160  DATA  235,208,2,230,236,16 

S, 235,201,70,208 
75  170  DATA  234,165,236,201,35,2 

08,228,177,235,230 
IF  180  DATA  235,208,2,230,236,14 

1,176,32, 17,235 
19  190  DATA  240,41,173,176,32,24 

,109, 174,32,133 
BE  200  DATA  206,177,235,230,235, 

208,2,230,236,109 
ID  210  DATA  175,32,133,207,24,17 

7,206,109, 174,32 
6!  220  DATA  145,206,200,177,206, 

109,175,32, 145,206 
<3  230  DATA  136,240,200,173,174, 


32, 141,246,3, 173 
FB  240  DATA  175,32,141,247,3,169 

,76,141,245,3 
F*  250  DATA  160,11,185,162,32,32 

,240,233,136,16 
5E  260  DATA  247,96,141,217,196,1 

93, 197,210, 160, 178 
IE  270  DATA  197,204,194,141,56,3 

2,32,32, 12,218 
6E  280  DATA  32,26,214,176,1,96,1 

04,104,32,136 
5D  290  DATA  252,160,2,177,155,20 

0,170, 177, 135,32 
IC  300  DATA  36,237,160,6,140,123 

,5, 132,206, 165 
99  310  DATA  37,141,151,2,165,135 

,133,233,165,156 
CB  320  DATA  133,236,160,4,177,23 

5,200,201,0,240 
«  330  DATA  44,16,36,162,208,142 

,68,0, 142,69 
4E  340  DATA  0,41,127,170,173,255 

,255,48,17,224 
94  350  DATA  0,208,3,32,72,1,238, 

68,0,208 
4fl  360  DATA  239,238,69,0,208,234 

,202, 16,243,32 
51  370  DATA  72,1,56,176,205,160, 

6,169,192,141 
42  380  DATA  152,2,132,207,32,34, 

1,32, 12,233 
IE  390  DATA  201,255,208,2,169,12 

8,201,160,144,81 
5E  400  DATA  44,152,2,48,15,112,6 

5,141,70, 1 
flC  410  DATA  32,35,2,169,192,141, 

152,2,48,218 
•C  420  DATA  112,34,72,164,207,13 

2,227, 164,206, 140 
!F  430  DATA  149,2,200,32,236,1,1 

32,207,32,96 
64  440  DATA  1,206,149,2,198,207, 

164,227,196,207 
E3  450  DATA  208,242,32,34,1,104, 

32,110, 1, 164 
7!  460  DATA  207,196,206,200,144, 

3,32,236, 1,76 
n  470  DATA  105,0,164,207,169,19 

2, 141,152,2,48 
8C  480  DATA  157,44,152,2,48,13,8 

0,240, 162,192 
2*490  DATA  142,152,2,73,192,201 

,64,208,213,162 
DD  500  DATA  192,142,152,2,201,14 

1,240, 12,201, 155 
77  510  DATA  240,46,164,207,32,25 

3, 1,76,105,0 
83  520  DATA  160,0,132,207,32,34, 

1,32, 155, 1 
It  530  DATA  73,128,16,2,41,63,16 

4,207, 153,0 
87  540  DATA  2,200,196,206,208,23 

2, 169,0, 153,0 
4E  550  DATA  2,160,1,162,255,76,6 

8,212,164,206 
71  560  DATA  32,34,1,160,0,240,23 

5,72, 173, 151 
11  570  DATA  2,133,37,152,197,33, 

144,6,229,33 
41  580  DATA  230,37,176,246,133,3 

6, 141, 123,5,32 
33  590  DATA  34,252,104,96,132,20 

7,32,34, 1,32 
32  600  DATA  155,1,201,70,96,140, 

150,2,9, 128 
17  610  DATA  201,160,176,2,73,192 

,32, 110, 1, 164 
E«  620  DATA  206,200,32,236,1,172 

, 150,2,96,172 
«9  630  DATA  149,2,32,34,1,32,155 

, 1 , 1 64 , 207 
flB  640  DATA  32,34,1,141,153,2,16 
5,37,72, 173 


5F  650  DATA  123,5,133,36,72,173, 

153,2,32,240 
iD  660  DATA  253,104,205,123,5,20 

a, 7, 197,36,165 
F5  670  DATA  36,141,123,5,104,144 

,7, 197,37,208 
n   630  DATA  3,206,151,2,173,153, 

2,96,173, 123 
Df  690  DATA  5,172,179,231,192,6, 

208,22,44,31 
87  700  DATA  192,16,17,141,1,192, 

72,56,101,32 
Bt  710  DATA  74,144,3,44,85,192,1 

04, 105,0,74 
IS  720  DATA  168,177,40,44,84,192 

,96, 192,0,240 
FF  730  DATA  37,32,247,1,132,207, 

132,227,32, 15 
34  740  DATA  2,140,149,2,196,206, 

240,13,32,96 
3E  750  DATA  1,238,149,2,230,207, 

172,149,2,208 
11  760  DATA  239,164,207,32,236,1 

,164,227,96,  132 
A9  770  DATA  206,32,34,1,32,156,2 

52, 164,206,96 
n   780  DATA  192,0,240,1,136,96,1 

62, 11,202,48 
14  790  DATA  250,221,127,2,208,24 

8,189, 138,2,141 
44  800  DATA  14,2,176,255,196,206 
,240, 1,200,96 

22  810  DATA  169,128,44,169,0,44, 

169,64, 141, 152 
J4  820  DATA  2,96,169,186,141,70, 

I, 164,207,196 
«E  830  DATA  206,240,6,200,32,61, 

1,208,244,164 
D5  840  DATA  207,96,169,186,141,7 

0, 1, 164,207,240 
J2  850   DATA   6,136,32,61,1,208,24 

6,164,207,96 
14   860   DATA    172,151,2,136,132,37 

,32,34,252, 169 
9E   870    DATA    0,141,123,5,32,156,2 

52, 162,0,169 
54   880    DATA    164,32,110,1,32,12,2 

53, 157,0,2 

23  890    DATA    232,201,141,208,242, 

32,199,255,32,167 

42  900    DATA    255,169,189,32,240,2 

53, 165,63, 166,62 

72  910    DATA    32,36,237,164,207,96 

, 128, 132, 136, 149 

43  920    DATA    148,137,147,150,134, 

130,131,179, 188,232 
49   930    DATA    0,221,6,9,12,18,38,5 

6,35,0 
E9   940    DATA    59,0,62,0,77,0,80,0, 

85,0 
B9   950    DATA    93,0,103,0,108,0,124 

,0, 131,0 
Bi   960    DATA    134,0,139,0,153,0,15 

7,0, 162,0 
E4   970    DATA    165,0,176,0,180,0,19 

0,0, 193,0 
BF   980    DATA    200,0,205,0,214,0,22 

5,0,238,0 
41  990    DATA    241,0,248,0,251,0,28 

.1,36,1 
3C    1000   DATA   64,1,67,1,73,1,84,1 

,90,1 
Fl    1010   DATA   93,1,97,1,100,1,103 

,1,108,1 
F4    1020   DATA    111,1,123,1,149,1,1 

52,1, 199,1 

73  1030   DATA    206,1,209,1,216,1,2 

19, 1,224, 1 
«    1040    DATA    231,1,239,1,3,2,8,2 

,11,2 
2F    1050    DATA    30,2,36,2,46,2,56,2 

.64,2 
F7    1060    DATA    72,2,93,2,0,0  @ 


lie     COMPUTEI     September  1985 


WHITE  HOUSE       1-800-351-3442 

COMPUTER  Wiltiamsport,  PA  1 7701  HOURS:  Monday  thru  Friday  9:00  am  I 


PRINTERS 

PANASONIC 

1090 187,00 

1091 237.00 

1092 389.00 

1093 585,00 

3151  455.00 

C.ITOH 

S510A 285,00 

8510BC1 329.00 

8510BC2 3S9-00 

8510BP1 339.00 

aSIOSP 389.00 

8510SR 429.00 

1550BCD 485.00 

1550P 445.00 

A10-20P 465.00 

F1 0-40P/S 875.00 

F10-55P/S 1059.00 

F10  Tractor 169.00 

F10  Sheet  Feeder 349.00 

STAR  MICRONICS 

SG10 214.00 

SG15 379.00 

SD10 345.00 

SD15 450.00 

SR10 485.00 

SB15 585.00 

Powertype 309.00 

EPSON 

RXeO 219.00 

LX80 245.00 

FX80 369.00 

JX80 529.00 

RXlOO 359.00 

FX100 490.00 


LEGEND 

880 209.00 

1080 229.00 

1380 289,00 

1385  , 305,00 

CM 

MPS  801 179.95 

802 208.95 

803 175.95 

WCS801 314.95 

OPS  1101 314.95 

ATAni 
XTM  201  Non-tmpact  Dot 

Matrix 9995 

XTC  201  Color  Non-Impact 

Matrix 109.95 

XDM121  Daisy  Wtieel,..  20995 
XMM  801  Dot  Matrix 

Impact 169.95 

STC  504  Color/ 

Mon-lmpact 139.95 

STD121  DaiSyWtieel..  .219.95 
SMM  801  Dot  Matrix/ 

Impact 279.95 

CITIZEN 

MSP-10 325.00 

WSP-15 479.00 

MSP-20 .....469.00 

MSP-25 629.00 

OKI  DATA 

182 219.95 

84... 640.95 

92  349.95 

93 560.95 

CARDCO 

LQ1  ....365.00 

LOa 209.00 


INTERFACES 

MPP  1  150 52.00 

850  (Atari) 108.00 

UPrint  w/1 6K  BuHer ....  79.95 

CardcoG 55.95 

Cardco  B  37.95 


PRINTER  PAPER 

Lazor  500  stils 11.95 

Laior  1000  stils 15.95 


COMPUTERS 

COMMOOOHE 

C-64 149.95 

C-128 275.95 

ATARI 

800  XL 99.9S 

130  XE 145.95 

130  ST 379.95 

520  ST CALL 


SOFTWARE 

BRODERBUND  "ATARI" 
&  COMMODORE 

Print  Shop 29.95 

Graphics  Library 18.95 

BS  Writer 41.95 

Stealth 21.95 


VIDEO  CASSETTE 
RECORDER 

$295.95 

Symphonic  VHS/Remote 

•  105  Channel  Cable  Ready 

•  14  Day/1  Program  Timer 

•  12  Pre-set  Channels 

•Auto  Rewind 


DISK  DRIVES 

ATARI 

Indus  GT 215.00 

1050 165.95 

"Happy"  1050 365.95 

MSD  Dual 459.00 

c-e4 

Indus  GT 239.00 


MODEMS 

C-1600 - 44.95 

C-1650 54.95 

C-1660 54.95 

CI  670  300/1200 

Band 185.95 

C-64  MPP-1064 59.95 

MPP  lOOOe  ..   69.95 

Telelearning 39.95 

Hayes  300 189.95 

Hayes  1200 385.95 

Mitey  Mo 59.95 

Westridge 69.95 

CompuServe 

Starter  Kri 21.95 


DISKETTES 

SKC 

SS/SD 10.50 

SS/DD 13.50 

DS/DD 15.50 

MAXWELL 

MD-1  15.95 

MD-2  21.95 

ELEPHANT 

SS/SD 13.50 

SS/DD..... 15.50 

DS/DD 19.50 


1-717-322-7700 

II  R-nnr,m  VISA  and  MC 
II  6.00  pm  Accepted  4% 

MONITORS 

ZENITH 

122A 82.95 

123G 75.95 

TEKNIKA 
MJ-10  Composite  & 

Separate  Video, .   , . .  199.95 
MJ-22  RGG  Composite  S 

Separate  Video 279.00 

AMDEK 

300G 11 9.00 

300A 129.00 

Color  300 235,00 

Color  500 345,00 

XTRON 

Comcolor  I  189,00 

COMMODORE 

C-1702 199.95 

C-1802 204.95 

C-1902  RGB 259.95 

C-1901  Monochrome. ..  129.95 

ATARI 
XC  141  14"  Composite 

Color. 199.95 

SM  124  12"  Monochrome/ 

High  Res 135.95 

SC  1  224  1  2" 

RGB  Color 335.95 

POLICY:  No  deposit  on  COD  orders 
FREE  f  reighl  on  all  prepaid  casJi  orders 
over  $300  in  Itie  continental  USA. 
APO  and  FPO  add  S5  per  hundred. 
For  priority  mail  add  SB  per  tiundred, 
PA  residents  add  6'^  sales  lai. 
I3«fective  prodtKts  must  tiave  Prior 
RA  number.  Schools  net  15. 


IT'S  LIKE 


!Mil 


Your  5"j"  single  side  disks  are  usable  on  the 
other  side.  You  paid  for  one  side,  why  not  use 
the  other,..  IT'S  FREE! 

Nibble  Notch  will  open  your  new  disk.  It's 
easy. ..won't  harm  existing  data.  Try  it! 

nibble  ndk^  I   nibble  notch  ii 


For  Apple,  Franklin, 

Commodore  &  Atari 

(w/Atari  Drives}; 

square  notch. 


only 


14 


95* 


For  all  other 
computers,  square 
notch  &  index  hole. 


©- 


only 


'21 


90* 


DISK  OPTIMIZERII 

Apple  II  Series  Software 

Pro  DOS  •  DOS  3.3  •  Pascal 

Exannines  your  new  disk,  locks  out 
bad  sectors  and  certiftes  tt  100% 
ERROR-FREE  in  30  seconds  or  less! 
Also  checks  drive  speed... and  more! 


QUALITY  DISKERES 
low  as 


'29« 


CKAGE 


'eg.S249s^ 


i^ftBorMi 


•add  %2  |S5  trgnl 
torP&  H,  Fl.  Fles 
adit5'\>SatasTa« 


Toll  Free  1  ■800-642-2536 


computtr  pfoduct? 


FL  1-305-748-3770 

OR  SEND  CHECK  OR 
MONEY  ORDER  TO, 


4211  NW  75th  TERRACE,' DEPT.  6  62    LAUDERHILL,  FL  33319 


?f^ 


Professional 
handicapping  systems 


?m 


•  PRESENTED  BY  PROFESSOR  JONES  • 


'^iK 


GLD.  Thoroughbred  "Gold"  Edition^ 

A  "Fijir'  (ealufcd  irorougiitned  anaiy5i5  flciigned  Im  tte  prolessionaf  aiij 
Ihe  seriQjs  noviC'E  $159.95  complete 

EGLO.  Entianced  "Gold"  Editian'** 

GoW"  Edrton  wli  compiffle  MjKei  6enix'"sysiEmiTEEgratetfcirtto  the  same 
flek  This  powrtui  prog;am  wiP  transler  ai  hofws  anfl  scores  to  the  bel  analysis 
with  a  ■  sifiqle  keystroke. ■'    (Master  Betior""  iocludeO)  $199.9S  com>&i& 

GLTD.  Limited  "Gold"'" 

Enables  PratHSiDUi  Handlnppen  to  assagri  specif  values  10  the  r»ng  var- 
iables, "ih^i"  Itel:  are  importanl  Create  prograrn  witorit  has^  on  a  pancular 
Irack  and  hfie  tune  rt  faf  nmlmurn  win  peicenisga  This  pfograni  is  de&gned 
lor    ease  o1  use  '  The  irs«r  nE«3s  no  progrtnimljtg  eiperltnct. 

icoTiiaifts  intefliaiM  Benty'")  ^99.95  corr^ew 

GO.  Gold  Dog  Analysis™ 

The  "ONLY"  pr{3tessionai  greyfiound  analyss  available  Ihal  evaluates  ALL 

varubJK  S149.96    vtftnegmal  Bettor  $199.95 

limited  Version  $299.95 


¥^ 


MHH.  Master  Harness 
Handlcapper™ 

PrclessiwijJ  sofiware  desJBfied  to  [wDvitie  a  ttwou^h  anafv^is  ol  all  Ironei  anti 
pacer  lacM  n  Nonh  Amenca  and  Caiafla  $159,95  comr'ete 

S199.95  w/ime«rjie()  Benw   LmitKl  S299.95 
Ptofessor  Pix  FDOIball™ 

Conpwe SIATISTIOL HNN.VSIS m ata Base nmni  ■  Iteisnatal' pmwa 

gamK  lo  tn  evatuiled  Siilisioi  Scius  $99.95 

w/WinLoss  Powei  Ralings  S149.95 

NBA.  Basketball™  NeAS99.9S  vticoin^  stzi.ss 

w/pmwi  fatmgs  S149.9S 

LOT.  Lottery  Analysis™ 

SratisTical  {:Qinnarison  piogcam  desi^ied  ID  (telecl  subtle  panerm  in  wiming 
numSers  mi  ilifis  Ljiiay  |j^  ;ig,||  S79.95 

wfl.olto  (Ivtax.  99  DigitI  S99.95 
PC-3  PDrtable  Computer  (4k)  imtiUHicccifTiioriwQiibiMi.Grfy- 

nounfl  01  IiDlter  '■     {249. 9S  (Incluilts  ponibit  compulii  and  progiim ) 

M-100  Portable  (24l<|  »/d»«  « Ti»i«ijMrBi.  G<tttMrd.  or  rirm 
$649.95  {InciLKfES  xdaiJle  computer  an]  progiam,) 


BROCHURE  AVAILABLE 


IBM' 

APPLE™ 

TRS-80™ 

CPM^' 

COMMODORE™ 


Prof.  Jones 

1940  W.  Stalest. 
Boise,  ID  83702 


48  HR. FREE 
SHIPPING 


CP   CALL 
208-342-6939 


TERMS  FREt  SHIPPING  AIL 
.SOflWARE  Add  S6  00  tioid- 
■file  /  S6  00  C  0  D  /  UPS  Blue 
S6  00  /  Qui  ol  Counlry  S9  00  ( 
ID  Residents  i'^ !  3  w^e^Ks  [lef  ■ 
sonai  checks  i  Cash  price  only. 
add  2%  Visa,  WC  /  Prices  sub- 
ject  to  change 


Lyco  Computer  Marketing  &  Consultants 


AXIOM 

GP550AT  JAlari)  332 

GP55DCD   C-M 239 

GPSSOPC  (laMl 229 

GP5MAP   lApplol  269 

GP700AT    Aran)      439 

GP7IX)AP   lAppie)    439 

ELITE5CD  (C-6A)      .229 
GPIOOAT   (Alanl  ...CALL 


C.  ITOH 

PROWRITEFf   B5I0AP       279 

S510AP+ 299 

B510HPI    309 

eSlOSP     375 

8S10SR 42S 

8510SCP      449 

asioscn    4G9 

75O0AP  205 

7500AR      245 

ISSOP 439 

1550APt  469 

I550BCP  4«9 

A10-30P       .  445 

FI0-4OP  or  S  BS9 

F1055P  or  S  1039 

FlO  Traclor  159 

FiO  Sheel  Feede-  249 


SAVE 


CARDCO 

32K  BUFFER   |C-641  .  .59 

CITIZEN 

MSP- 10.,  289 

MSP-J5 449 

MgP.20 449 

MSP-25 569 

ShMtfdr  (10/20).  189 

Sheelldr  (15/25)  199 

CORONA 

L.P300  Laser  Printer    .  2699 

200361  Toner  Cadridge  89 

EPSON 

LXBO  (NEW)  ,225 

FX80*  349 

FXlOO.  479 

JX80    Color  489 

RXtOO  369 

MOMEWR(TER  10  (New)  CALL 

CH220   (C-64)  159 

LQ1500  Par  999 

LQ150O  Ser  1059 

HiaD   ColO'   PlOIIer  379 


JUKI 

Juki  6100 375 

RS232  Serial  Board 55 

6100  Tfactor 119 

6100  Sfieel  Feefler 209 

Juki   6300 765 


OKIDATA 

gkimaia  10 CALL 
kimale  20 CALL 

182    216 

192      349 

'93 565 

92P 349 

93P 565 

84P B45 

92  ImaoffwrJler 349 

'IBM  versions  also 

BROTHER 

HR.15XLP  359 

HH-15XLS 359 

Hn-35P     939 

HR.35S 839 

2024L-P 949 

Mt009-P  189 


^TERS 

1080.. 

LEGEND 

199 

.225 

1380., 
1385 

.  .265 
.299 

DIGITAL  DEVICES 

16K   BUFFER  75 

32K   BUFFER        .  39 

64K    BUFFER  .125 

TOSHIBA 

P1340 559 

P351  1289 

MICROBITS 

Microslulfer    99 

DIABLO 

D?5  549 

630API  1 599 

630ECS 1759 

DSOIF  2395 

P32CQ1 699 

P36  1749 

C150  999 


PANASONIC 

1091 139 

1090 185 

1092 .375 

1093 429 

3151   Lonai., 429 

4K  Butler 65 


SILVER  REED 

EXP400  249 

295 


EXP550 
EXP770 


.409 
.749 


STAR  MICRONICS 

SG-10 Its 

SG-15 375 

SD-lO  339 

SO-15  445 

SR-10  ,485 

SR-15 565 

Powerlyfjfl      305 

SB-ia  CALL 

SGlOC-64   (NEW)  CALL 


ic    PRINTER     -^ 
INTERFACING 


AXIOM 


65 
65 


AT846  (AlariJ 
Parana.   (C-64) 


MICROBITS 

ll<PP-1150  (Alan  I  54 

MPP-1150XL  lAlam  59 

MicroPrinl  tAlaril  39 

64K  RAM  Board  (600«l)  65 

DIGITAL  DEVICES 

ApeFace  XLP  lAtarij  49 

ApeFace  12XLP  |1200»I)  49 

U-Prinl  A  (Alan)  54 

UPnnl  C  IC-Si)  49 

UP'inl  AI6K   Buffer  74 

UPrinl  A64K  Suite'  99 

U-Print  AP16K  (Apple!  99 


UCALL  RS23?  (Afar,) 

MICROTEK 


Dumpling  GX  lAppie) 
DumplinQ  16K  (Applet 
RV-SllC  lApDlel 


59 
89 
49 


55 
49 
39 


TYMAC 

Connoclion   IC-64) 
Tackier  (Apple) 
PPClOO  lApp(e) 


ORANGE  MICRO 

GRAPPLER  *    (Apple)        ,  85 
Grappler  16K  (Appfe)  149 

ill  79 


ORANGE   (Applf 
Grappler  CD  (t-l 


CARDCO 


GWiz  (C  64) 
CP  »G  (C-64) 
C,"PS  (C-641 
Ci^B  lC-64) 
CI1AT  lAian] 
CCAP  lAople) 
CCIBM   (fBM) 


54 
45 
49 
39 
49 
49 
29 


PRINTING 
PAPER 


3000  SHEETS 

FANFOLD  S42  75 
1000  SHEETS 

FANFOLO  119  75 

1O0OSHEETLETT6S  $21  95 

!0fi  Sheets  LETTEfl  J8  99 

)50RAGSTATIONAP>'  J10  99 

MAILIMG  LABELS  II ml  19  95 
14  n  M   1000 

FANFOLD  tit  75 

INNOVATIVE  CONCEPTS 

Flip  n-File  10  350 

Flip-n-File  15  8.25 

Flip-n-File  25  Lock  17  95 

Flip-n-File  50  17  25 

Flip  nFile  50  Lock  22  95 

FlipnFile  Born  17  25 

WICO  Joysticks 

15-9714  Bal  Handle  16  75 

50J030   Bass  11  99 

502002  Super  3  Way  19  99 

500110  IBSl-Analog  29  95 

50-1030  Apple-Aoaroq  29  96 

72-4545  Trackball  29  95 


DRIVES 


MSD 

501  Dii»e  (C-641 

502  Drive  (C-64i 


229 
469 


INDUS 

GT  ATARI 21S 

GT   COMMODORE  236 


DISKETTES 


SKC  (Box  10) 

fQir )     10  lOO         500 

5'.      D5D0  15  75       Id  99       i^  25 

ELEPHANT  (Box  10) 

y*      SSSD  1350  1299  11  99 

S'*      SSDD  '^99  13  99  12  &§ 

5'*     DSDD  t6  99  15  99  14 » 

PremuTi  SSDD  tS  95  1495  13  9* 

Prom.gm   DSDD  1  7  95  Ifl  9§  l5  95 

MAXELL  (Box  10) 

5'i      MD-1  l6  7&       15  75       1*  75 

5'.      MD-2  22 «      5199      M99 

VERBATIM  (DataLife)  (Box  10) 

5'.      SSDO  19  99       'BM       i799 

5-.      DSDD  2<  99       ?3  99       ??  99 

NO  LABEL  DISKETTES 

NL  5'^  ■  SSDD    1099  [Box  10) 
NL  5'4    DSDD    i5  99lBox  lOl 

"Free  Dishene  Wfiief  Pen' 

"Free  Slorage  Case' 

"Lifetirne  Warranty' 


IBM-PC 

so  FT- WARE 


•LOTUS 

Lolus  1-2-3  309  00 

Sympfiony  439  00 

•ASHTON-TATE 

Framework  335  00 

d  Base  II  289  00 

d  Base  III  385  00 

d  Base  II  upgrade  135  00 

BRODERBUND  (IBM) 

The  Print  SflOp  CALL 

Bank  Si  Wriier  49  95 

Ancient  Art  oT  War  £9.95 

Loderunner  21  95 


IBM-PC 

COM  RATABLE 


PARADISE 

Multi-Display  Card  239 

Modt;laf  Graphics  Card  275 
Five-Oak  155 

TECHMAR 

FifSI  MalB-64K  ;49 

Caplain-64K  199 

Second  Male  209 

Capiain  jfl.i2aK  309 

Graphics  MasTer  465 

OMEGA 

10  Meg  BBrnr:ulli  BoMIBMJ  1B99 
5  Meg  Bernoull.  Boi  WACl  1499 

TALLGRASS 
TECHNOLOGIES 

2Smb  drive  CALL 

35mp  drive  CALL 

50mb  drive  CALL 

80iflb  drive  CALL 

AST 

Six  Pack  Plus  64K  CALL 

Mega  Plus  II  64K  269 

Memory  128K  (mega  I  199 

Memorv  256K  (Megal  335 

Mono-Graph   Plus  339 

Afluanla()eAT  I28K  389 

'QUADRAM 

Quad  J'  E<p  Crias5is  51900 
Ojad  Jr  £tp  Wemory  209  00 
Quad  Memory  Jr  309  00 

'LEADING  EDGE 

Nulsholl  69  95 

LEWP  Basic  65  00 

LEWP  Merge  Prrnl  99  00 

IE  Spell  CorreCliOn  169  00 

Zsnith 

^-l50  Call 

Leading  Edge 

PC  Compaiable  Can 


TOLL  FREE  1-800-233-8760 


TO  ORDER 


800-233-8760 

Customer  Service  1 -71  7-32 7- 1825  ;«'?»»  Sho<»    »»  i  7  740 


'  o  Ro,  sQse 


RISK  FREE  POLICY 

In  siock  'Tarris  5i-£>p«a  i*ri:nin  24.  nouti  of  vti9t  Ho  d«p04iE  on  c  O  0  va*n  Fr»« 
shipping  an  prBpatd  cash  oiOsis  wilJ^m  Tha  conlineniai  U  5  Voium«  discounli 
avdiiabifl  PA  resderis  ioa  saMs  lax  APO  FPO  ariQ  iM6tna\ont\  orMrs  aod 
$S  00  plus  3*t  loi  p'lcyiij  rriii\  HIVJC4  Aowsmsed  oncvs  jho«  4%  discouni  Iw 

b^lOiTa  3hippin{^  Asfe  aboul  UPS  BltM  ana  R»d  IaD*1  ihippirkg  Ait  'twrchand^b* 
tarfwo  jrKH>  iTi«njracijr»i'iHi/iinty  F(*«caiihogwi!nofdt'  AH  <T«mt  iuDi*ci 
to  ciiftTLya  Miihowi  nol^cv 


>K  ATARI  >K   llapplG    COMMODORE 


ATARI 

MOXL ^, CALL 

130XE  mew CALL 

520ST   (NEVVi CALL 

1050  Driuo 165 

1010   flocorder K 

1020   Prinlef 55 

1025   Primer 1S9 

1037   Phnler 179 

850  ifiterJaca ,.., v  9 


ATARI  SOFTWAflE  (NEW) 

Oodowrller 35.75 

FilownlBr 20  75 

RftpOflwrilBf 20.75 

Menuwnler 20  75 

Home  Integrator 19  75 

SrnaN  Bjs    Inventary..   .11  75 
Salesman  Expenses  ..,.11.75 

Aces  Rec/Pay n.75 

Rolail  InvaiCB   II  75 

Final  Legacy 15  75 

Advenluie   Writer 18  75 

Star   Voyager  11.75 


SSI  (Atari) 


Colonial  Canquesi 
Field  of  Fire 
KampfgiuppB  . 
Objeclive,  Kursk 
Market  Garden 
S.I  Gun  Shootout 
War  in  Russia 
Computer  Basetjaii 
Compiler  OLjarterback 
Gemstone  Warrior 
50  Mission  Crush 
Queslron 


2A  76 
24  75 
36.75 
24.75 
29  75 
24  75 
49  75 
24  75 
24  75 
22  75 
24  75 
29  75 


SPINNAKER 

Delia  Drawing  Room       19  95 
Cosmic  Life  Roam  19  95 

Up  for  Grabs  Room         19  95 

PERSONAL  PERIPHERALS 

i^pe'  5-eicn  C  6-i  29  95 

^■■■nte<  UMity  C5i  1*99 

Supe'  Sstetcn  Alan  25  9S 

SuM'  SkeiCfv  Apple^lOm  55  00 

SUB  LOGIC  (Atari) 

Flight  Simulator  II. ...32.75 

Ni^l  Mission  Pinban  .    .20  75 


ATARI 
CONTINENTAL 


ADVENTURE  INTl  (Atari) 

□  iskflv 32  75 

Ultracfissambler           .  33  75 

Ma^i  GoH.  ia  75 

Ralley  Speedway  .  26  75 

WtlOmper  SlOniper  18  75 
Adventures  1-12  each  .  14  50 
Ady   Hint  Book 5  50 


MICnOPROSE  (Atari) 

Kennedy  AppfOBCti 21  75 

Crusade  in  Europe 24  75 

Decision  \i\  Desert.  .,    ..24  75 

Solo  Fligtit 20  75 

Nflto  Commariffer 20  75 

Spitfire  Ace 18  75 

F-15  Strike  Eagle 20  75 

Hetlcal  Acs 1675 


SYNAPSE  (Atari) 

SynFile  33  75 

SynCalc  lAT/C-Ml  33  75 

SynComm  26  75 

SynTrend 26  75 

SynCbron     .      .  25  76 

SynSlock  26  75 

BRODERBUND  (Atari) 

The  Print  Sfiop 28  95 

Giaphics  Library 1995 

Oiaphica  Library  II 19  50 

Banlk  Si   WrUer 42  75 

Whistlei's  Broihw 1695 

fpeljnker  16-95 
fealin 10  95 

Serpenlj  Sfar. .24  95 

Mask  of  the  Sun 24  95 

SCARBOROUGH  (Atari) 

NET  WORTH  (AT'C  641  48  75 

Maslorlype  22  75 

improvec  Masterlype  23  75 

Maslerlype   Filer  22  75 


Home  Accountant 

'?&:  B^G"  :'  AiaT-i  Sc'r. 


TRONIX 


SAM     Alar. 
S  A  .\1     C'SJ 


44  75 
16  95 


38  50 
38  50 


SCARBOROUGH  (Apple) 

NET  WORTH     48,75 

Improyed  Wastertype.  .  22,75 
Mastertype  Filer 


.22.75 


BRODERBUND  (Appie) 


Ttie  Print  Sfiop. 
Graphics  Library 
Graphics  Library  II 
Paper   ReMI. 
Bank  St  Writer  64K 
Bank  SI  Writer   I2BK 
Bank  St  Filer    . 

Bank   St  Mailer 

Bank  St  Speller 

Caririen  Sandiego.   . 

Karateka 

Captain   Goodnight 
Muppey  Cruise 


.31.50 
18.50 
18.95 
11.95 
41.50 
42.75 
42.75 
42.75 
.42.75 
22.75 
,22.75 
22.75 
.25.75 


SUB  LOGIC  (Apple) 

Flight  Simulator  II... .32.75 

M.ghl  Mission  Pinball      20  75 

MICROPROSE  (Apple) 

Crusade  in  Europe        .  25  75 
Decision  m  Desefl  25  75 

F-15  Strike  Eagle  2i  75 

Naio  Commandef 21  75 

SSI  (Apple) 

Mecb  Brigade  36  75 

Nonrvay   f96S  22  75 

Market  Garden,  29  75 

Sm  Gun  Shootout  2a  75 

50   Mission  Crush  24  75 

Phaniasie  24  75 
Spinnakar 

Aipnabet  418  75 

Slory  Mactiine  $^S75 

Kids  on  Keys  US  75 

Grar^dma  SI 9  75 

Snooper  Trooti  S22  75 


COMMODORE 

C-128  NEW CALL 

1571  Drive tjALL 

1572  Drive CALL 

1902  Monitor CALL 

1670   Modem CALL 

C-64  Coinpuler CALL 

1541  Drive 189 

MPSaOl  Printer LOW 

1702  Monitor 199 

Simon's  Basrc... 24.75 

Assembler  64 34.75 

Super  Expander    22.75 

Looo  M     .  49.75 

Pilot  64 38.75 

Easy  Cale 34.75 

Easy  Script 38.75 

SSI  (C-64) 

Colonfal  Conquest  24  75 

Wings  01  War  .  24  7S 

Computef  Ambusfi.        34  75 

Field  at  Fire   24  75 

Fighter  CDmmantl  36  75 

Kampfofyppe.  .  36  75 

Mech  Bngada 36.75 

Market  Garden 29.75 

Six  Gun  Shootout 24.75 

Computer  Baseball  24.75 
Cornpuier  Ouarlerback  24.75 
ImperiLjm  Ga'actum        .24.75 

pnantasie 24  75 

Canels  &  Cutthroats  24  75 
SO  Mission  Crush  24  75 

Questfon  24  75 

SCARBOROUGH  (C-64) 

Bulls  A  Book   .  24  76 

Improved  Wastertype  23  75 

NET  WORTH  48  75 

Mastertype   Filer  22  75 


SUB  LOGIC  (C-64) 

Flight  Simulator  ll....32.Ti 

Nigni  Mission  Pmball 


32.7S 

20  75 


US  ROBOTICS 

Pai^sworo  1200M  229 

PasSAora  1200P  229 

Password  3CX)M  139 

Password  300F  139 

Autodial  21 2A  359 

PCM5  319 

PCM64  519 

PCM  256  769 

Si  00  379 

Courier  469 

Microlmk  469 

Telpac  MS-DOS  79 

RACAL-VADIC 

2100PC  549 

2400PA  799 

24D0V  559 

1200PC  329 

300V  205 

300PC  199 

Georpe  Software  69 


MODEMS 


ANCHOR 


Volksmodem 
Volksmodem  12. 
Mark   12     


HAYES 

SMAHTMODEM   300  139 

SMARTMOOEM  1200      .  379 

SMARTMODEM    1200B  349 

SMAHTMODEM  2400  599 

MICnOMOOEM  HE  135 


TELE  LEARNING 

Toial  Telecomrnunicatioris 

lC-64|  29  95 

AP.JSO  i300  Baud  Applei  69  95 

IB.250  i300  Baud  laMl  69  95 


NOVATION 

iBMSOOiiZOO  WS-DOS  e.1 
IBM. 300"  JM  CPV-ae  e.i 
IBW  300"?OOi24K>e.l 
IBV  J0flii2m.'240t)  iJS-OOS 
IBV  VS-DOS   n| 
iBW  :Py  86  ill 
'.iJC-mer-  300  '2M 
t.lscnoce^  300-20)2400 
ippie  Cai  II 
Upc'aae  Apple  Cai  II 
Cat  300  Acoustic 
JCsl  RS232 


55 
186 
229 


WESTBIDGE  MODEMlC-64i         69 
MITEV  WO  MODEM  (C-Ml  69 

CompuServe  19  85 


CAHDCO 

Digitizer  Camera 
32K  Printer  Buffer 
Numeric  Kevpad 
CB/5  5-slat  Board(64) 
CB/2  2-slDt  BoardiS'll 
SWore  Baste  Rorri 
W'de  Now-&i,  , 
Niasl    lSfaw-64 
Spell  Now-64 
pjle  N0W-&4 
Paint  Now-64 
Calc  Now-64i 
Tax  Survival 
Super  Printer  Utility 
Write  Nqw-Vic-20 

HES 

HES  Games  84 
Omni  WriterrSoell 
HES  Mon  64 
Mcrosotl  Multiplan 
Type  N  Write 
Turtle  Graphics  II 
Cell  Defense 
Paint  Brush 
Tri  Main 
Graphics  Basic 
HES  Kil 
Millionaire 
64  Forth 
HES  Wr.rer  64 


189  95 
59  95 
34.95 
54  00 
25  00 
49  95 
35.00 
29  00 
29  00 
29  00 
29  00 
29  00 
29  00 
27  95 
29  95 


22.95 
34.95 
23  95 
65  00 
19  95 
23  96 
22  96 
12  96 

22  96 
27  96 
29  95 

23  96 

24  96 
24  9!1 


BATTERIES  INCLUDED 

Paper  Clip  59  95 

Spell  Pak  34  95 

Consultant  59  95 
Paper  Clip 

w/Spell  Pak  75  95 

Home  Pak  34  95 

Bus  Card  129  95 

00  Column  Board  109  95 


BRODERBUND 
The  Print  Shop,, 

G-aph'CS  LiOrary 
Citapli'ics  Library  H 
Karateka 

Castles  Dr  Creep 
Bank  St  Wnier 
Loderunner 
Mask  of  the  Sun 
Spelijnker 
Serpent's   Star 
Whisllers  Srolher 

Raid  Bungelirtg  Bay 


(C-64) 
...28.75 

IB  75 
19  75 
19  75 

19  75 
3275 

20  75 
24  75 
19  75 
24  75 
18  75 
18  75 


MICROPROSE  (C-64) 


Kennedy  Appfoact^ 
C-usade  in  Europe 


21  75 
24  75 
Decision  m  Desfiiri  24  75 

Solo  Flight  20  75 

Nalo  Commander  20  75 

Sp.llire  Ace  IB  75 

F-15  SiTike  Eagle  20  75 

Helical  Ace  IB  75 


*    SUPER  SPECIAL!    * 


*  LOWEST  PRICES!    * 


AMOEK 

NEC 

JB.1260  Green 

95 
135 

QAIf  ATA                  ^VM  122A  Amber 
0.-    „„„     :r^                        „o    ZVMt23G  Green 

84 
75 

300  Green 

125 

JC  1215  Color 
JC  1216  RGB 

235 

SG1OOO  12     Green              99    JVM  124  Amber  IBM 

129 

300  Amber 

139 

375 

SA1OOO  12     Amber             109    2VM  13T  Color 

275 

310  Amoer  IBM 

155 

265 

SGI 500  12     Green  TTj_    U9    ZVM133RGB 

3H<q 

Color  300  Audio 

245 

JB-t205  Amber 

139 

SA1500  12     Amber  TTL    129    ZVM  135  Composite 

449 

Color  500  Composite 

3G9 

SCI 00  13    Color  Comp    209    ZVM  1 36  Hi  Res  Color 

6Rq 

Color  600 

429 

SC200  13     RGB                389 

Color  700 

495 

PRINCETON  GRAPHICS 

STSI  Till  Stand                      29 

Color  710 

569 

IS9 

HX-12  RGB 

475 

PANASONIC                        X-THON 

SB-12  RGB 

599 

DT  1300  RGl  composite       ?99    Comcolor  1  Ci.inti^.Mii- tlitt 

n   i«6 

TAXAN 

115  I?    Green  Composite  CALL 

116 '2    Amber  Composite  CALL 

121  12    Green  TTL  i35 

122  -2  AmtierTTL  145 
220  ■:  Color  Composite  259 
ilO  1?  HGB  Hi  Res  IBM  329 
420  1 2  BGB  Super  Hi  igy  409 
440  I J  BGB  UHra  M.  Res  569 
Tilt  Stand  3S 


AMERICA'S  MAILORDER  HEADQUARTERS 

LYCO     COMPUTER 

WORLD'S  LEADER  IN  SALES  &  SERVICE 


TO  ORDER 

CALL  TOLL  FREE 

800-233-8760 

In  PA1  717-327-1824 

Lyco  Computer 

P.O.  Box  5088 

Jersey  Shore,  PA  1/740 


What  the  world  really  needs 

Is  a  99  cent 

Double  Sided,  Double  Density  Diskette 

with  a  LIFETIME  WARRANTY! 


And  DISK  WORLD!  has  it. 


Introducing  Super  Star  Diskettes: 

the  high  quality  diskette  with 

the  lowest  price 

and  the  best  LIFETIME  WARRANTY! 


In  the  course  ot  selling  more  than  a  million  diskettes 
every  month,  we've  learned  something:  higher  prices  don't 
necessanly  Tiean  higher  quality. 

In  fact,  we've  fnund  that  a  good  diskette  manufacturer 
simply  manufactures  a  good  diskette.., no  matter  what 
they  charge  (or  it.  (By  way  of  example,  consider  that  none 
of  the  brands  that  we  carry  has  a  return  rate  of  greater  than 
1, '1. 000th  ol  1  percent!) 

In  other  words,  when  people  buy  a  more  expensive 
diskette.  Ihey  aren't  necessarily  buying  higher  guality. 

The  extra  money  might  be  going  toward  flashier  adver- 
llsing,  snazzier  packaging  or  simply  higher  profits. 

But  the  extra  money  in  a  higher  price  isn't  buying  better 
quality. 

All  of  the  good  manufacturers  put  out  a  good  diskette. 

Penod, 

How  to  cut  diskette  prices 
. . .  without  cutting  quality. 

Now  this  discovery  posed  a  difemma:  how  to  cut  the 
price  of  diskettes  without  lowering  the  quality. 

There  are  about  85  companies  claiming  to  be  'diskette" 
manufacturers- 
Trouble  IS,  most  of  them  aren't  manufacturers. 

Rather  they  are  fabricators  or  marketers,  taking  other 
company's  components,  possibly  doing  one  or  more  steps 
of  the  processing  themselves  and  pasting  their  labels  on 
the  finished  product. 

The  new  Eastman  Kodak  diskettes,  lor  example,  are  one 
of  these.  So  are  IBM  5'A'  diskettes  Same  for  DYSAN, 
Polaroid  and  many,  many  other  familiar  diskette  brand 
names.  Each  ol  these  diskettes  is  manulaclured  in  whole 
or  in  part  by  another  company! 

So,  we  decided  to  act  just  like  the  big  guys.  That's  how 
we  would  cut  diskette  prices  ,. without  lowering  the 
quality. 

We  would  go  out  and  find  smaller  companies  to  manu- 
facture a  diskette  to  our  specifications... specifications 
which  are  higher  than  most. ..and  simply  create  our  own 
"name  brand"  diskette. 

Name  brand  diskettes  that  offered  high  quality  at  low 
prices. 


DISKETTESTORAGE 


DISK  CADDIES 

The  original  flip-up  holder  for 
10  5'/*"  diskettes.  Beige  or  Grey 
only. 

SI.eSea. +  .20Shpng. 

DISKETTE  70  STORAGE 

Oust-free  storage  for  70  5',4" 
diskettes.  Six  dividers  included. 
An  excellent  value. 
$11.95  ea.  +$3. DO  Shpng. 


!> 
% 


HOURS: 

Human:  8AM-6PM  Central  Time.  Monday  through  Friday 

Answering  Machine:  6PIVI-8Afvl,  All  Times 

MCIMAIL:24liDursaday, 


Super  Star  dislienes  are  said  m  multiples  ot  50  only.  Diskettes  are 
shipped  with  white  Tyvec  sleeves,  feinlorced  tiubs.  user  ID  labels 
and  wrile-proiecl  tabs. 


Boy,  did  we  get  lucky.  Our  Super  Star 

Diskettes  are  the  same  ones  you've  been 

using  for  years. . .  witliout  knowing  it. 

In  our  search  for  the  low  priced,  high  quality  diskette  of 
our  dreams,  we  found  something  even  more  interesting. 

We  found  that  there  are  several  manufacturers  who 
don't  give  a  hoot  about  the  consumer  market  for  their 
diskettes.  They  don't  spend  millions  of  dollars  in  advertis- 
ing trying  to  get  you,  the  computer  user,  to  yse  their 
diskettes. 

Instead,  they  concentrate  their  efforts  on  turmngout  the 
highest  quality  diskettes  they  can, .because  ihey  sel! 
them  to  the  soltware  publishers,  computer  manufacturers 
and  other  folks  who  (in  turn)  put  their  name  on  them.  ..and 
sell  them  for  much  higher  prices  to  you! 

After  all,  when  a  software  publisher  or  computer  manu- 
facturer or  diskette  marketer  puts  their  name  on  a  diskette, 
they  want  it  to  work  lime  after  lime,  everytime,  (Especially 
software  publishers  who  have  the  nasty  habit  of  copy- 
protecting  their  originals!) 


HOW  TO  ORDER: 


ORDERS  ONLY: 

1-800-621-6B27 

(In  Illinois:  1-312-256-7140) 

INQUIRIES: 

1-312-256-7140 
FOR  FASTEST  SERVICE,  USE  NO-COST  MCI  MAIL: 
Our  address  is  DISKWORLD,  It's  a  FREE  fVlCI  MAIL 
letter.  No  charge  to  you.  (Situation  permitting,  we'll 
ship  these  orders  in  24  hours  or  less.) 

SHIPPING:  5'/,-  &  3'*-  DISKETTES -Add  S3.00  pel  eacti 
100  or  (ewer  disketles  OTHER  ITEMS:  Add  shipping  charges 
as  shown  m  addition  to  other  smpprng  charges  PAYMENT; 
VISA,  IvIASTERCARD  and  Prepaid  ordeis  accepied  CDD  OR- 
DEHS:  Mi  afldilional  S300  special  handling  charge,  APfl, 
FPO,  AK.  HI  &  PR  ORDERS:  Include  shipping  charges  as 
shown  and  additional  SS  ol  lola;  order  amount  to  cover  PAL 
anii  insurance  We  sbip  only  In  Unted  Stales  addresses,  sxcepl 
tor  those  listed  above.  TAXES:  Illinois  residenls.  add  8% 
sales  lax. 

(MINIMUM  ORDER;  S35  00  or  20  diskelies 


Super  Star  Diskettes.  You  already  know 

how  good  they  are.  Now  you  can  buy 

them... cheap. 

Well,  that's  the  story. 

Super  Star  diskettes  don't  roll  off  the  boat  (rom  Pago- 
Pago  or  emerge  from  a  basement  plant  |ust  east  of 
Nowhere. 

Super  Star  diskettes  have  been  around  for  years...  and 
you've  used  them  for  years  as  copy-protected  software 
originals,  unprotected  originals.  Sometimes,  depending 
on  which  computer  you  own,  the  system  master  may  have 
been  on  a  Super  Star  diskette.  And  mayhe  more  than  once. 
youveboughtaboxortwoormor^ofSuperStardiskettes 
without  knowing  it.  They  just  had  some  "big"  company's 
name  on  them. 

Super  Star  Diskettes  are  good.  So  good  that  a  lot  of 
ma|or  soltware  publishers,  computer  manufacturers  and 
other  diskette  marketers  buy  them  in  the  tens  or  hundreds 
of  thousands. 

We  buy  them  in  the  millions. 

And  than  we  sell  them  to  you. 

Cheap 

When  every  little  bit  counts, 
it's  Super  Star  Diskettes. 

You've  used  them  a  hundred  times,  under  different 
names. 

Now,  you  can  buy  the  real  McCoy,  the  same  dis  kette  that 
major  soltware  publishers,  computer  manufacturers  and 
diskette  marketers  buy... and  cail  their  own. 

We  simply  charge  less. 


Super  Special! 


Order  50  Super  Star  Diskettes 
and  we'll  be  happy  to  sell  you  an 
Amaray  Media-Mate  50  for  only 
S8  75.  shipping  included. ..a  lot 
less  than  the  suggested  retail  price 
ol  $15-95 


% 


Regular  DISK  WORLD!  price:  $9.69  ea. 
f  $2.aQShpnB, 


The  Super  Star 
LIFETIME  WARRANTY! 


Super  Star  Diskettes  are  unconditionally  warranted 
against  defects  in  original  material  and  workmanship 
so  long  as  owned  by  the  original  purchaser.  Returns 
are  simple:  just  send  the  defective  diskettes  with  proof 
of  purchase,  postage-paid  by  you  with  a  short  expla- 
nation ol  the  problem,  and  we'll  send  you  the  replace- 
ments (Incidentally,  collee  stained  diskettes  and 
diskettes  with  staples  driven  through  them  don't 
qualify  as  "defective".) 


WE  WILL  MEET  OR  BEAT  ANY  NATIONALLY 

ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES 

SUBJECTTO  THE  SAIWETERMS  AND  CONDITIONS. 


DISK  WORLD!,  Inc. 


629  Green  Bay  Road 
Wilmette,  Illinois  60091 


Incredible  vafuel 

Nashua. 

Diskettes 


97 


LIFETIME  WARRANTYI 


ea. 

5V4" 
Qty.  50 


$107' 

DD      I    Oty.  50 


SSDD 

5V«"DSDD 

These  are  poiy-bagged  diskettes  packaged  *ith  Tyvek  sleeves, 
reinforced  hubs,  user  identilicstmn  labels  and  wntc-protect  tabs 
NASHUA  Coiporation  is  a  half-billion  bollaf  corpofation  and  a 
recognized  reader  in  magnetic  media. 

SOFT  SECTOR  ONLTI    Sold  in  multiples  0(  50  onlyi 
FOR  ORDERS  ONLY:  INFORMATIONS 

1-800-621-6827         ,     '1'°"?!^%..^ 

[In  Illinois  l-3l?-256-7i'tO)      1-312-256-7140 

HOURS  8AM-5PM  Central  Time.  Monday-Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PHICE 

OH  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  inc. 

629  Green  Bay  Road  •  Wilmetie.  Illinois  60091 


DISK 
WORLD! 


NASHUA 
Aiithorind  DtotritHitor  MAGNETIC 
MEDIA 


AIHANA 

DISKETTES 
The  great  unknown! 


Q  7  V  -  5  /'  SSDD  S  1 01 

^I^'VSO  5„.osDD^    |°'V50 

You  ve  used  these  diskettes  tiundfeds  ot 
times. -.as  copy-protected  originals  on  some  of 
ttie  most  popular  software  packages.  They're 
packed  In  poly-bags  of  25  with  Tyvek  sleeves, 
reinforced  hubs,  user  tdentilication  labels  and 
write-protect  tabs. 


LIFETIME  WARRANTYI 


SOFT  SECTOR  ONLY!     Sold  in  multiples 

of  50  only. 

for  orders  only:  information  4 

1-800-621-6827  inquiries: 

{In  Illinois:  1-312-256-7140)        1-312-256-7140 

HOURS,  6AM-5PM  Central  Time.  MontSay-Fiiday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAM  E  PRODU  CTS  AN  D  QUANTITIES! 

DISK  WORLD!,  Inc. 

629  Green  Bay  Road  •  Wilmette.  Illinois  6009 1 


DISK 
WORLD! 


Aiithorizad  DIMiibutor    MAGNETIC 
MEDIA 


DISKETTE 
STORAGE  CASES 


AMARAY  MEDIA-MATE  50:  A  REVOLUTION 
^J  IN  DISKETTE  STORAGE 

^Bl^  .  Every  once  in  a  wtiile.  someone  taltes  ttie 

^np^y       simple  and  maiies  it  alegar^t!  This  unit  Iroids 

■k  50  5ii'  diskettes,  lias  grooves  (or  easy 

^^       ^        slacking,  inside  nipples  to  k&eo  diskettes 

Irom  slipping  and  several  other  features  We 

S9.69..  sf^ 

DISKETTE  70  STORAGE;  STILL  A  GREAT  BUY. 

^^■r  Dust-tree  Storage  for  70  5'<>'  diskenes 

^HJl      Six  dividers  included  An  excel  lent  valye 

IB-JKr*  ^ISKCADOIFfi  $11-68    sSr^ 
J^s 


OJISK  CADDIES  * 

^  Trie  original  llip-up  holder  lor  10  5'r 
diskettes  Beigeor  grey  only  tfjl  RK 

■  20C  Snpng 

for  orders  only:  informations 

1-800-621-6827  inquiries: 

(In  Illinois:  1-312-256-7140)        1-312-256-7140 

HOURS"  8AM-5PM  Central  Time,  Monday-Friday 

WE  WILL  BEAT  ANY  NftTIOHALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AKD  DlfANTITItSI 

DISK  WORLD!,  Inc. 

629  Green  Bay  Road  •  Wiimelte,  Illinois  60091 


DISK 
WORLD! 


FANTASTIC  LOW  PRICES  ON 

^  BASF  ^ 

>3  QUALIMETRIC  fe 
^    DISKETTES! 

LIFETIME  WARRANTY! 


$1141™  ,  $131 

I  Qty  20  DSDO  I  Qty  20 

5'i'  SS0D-95TPI  _  S1.46  ea         b','."  DSDD-9STPI  _  S1.75  ea. 
PACKED  IN  CARDBOARD  CASES! 
BASF  QUALIMETRIC  DISKETTES  have  a  LIFETIME  WAR- 
RANTY with  Tyvek  sleeves,  rentorced  hubs,  user  identdication 
labels  and  wnle-protect  taDs 

SOFT  SECTOR  ONLY!    MINIMUM  ORDER:  20  DISKETTES 
BASF  5'i-HIGH  DENSITY 
FDR18MPC-AT 
DSHD-HD    .S3.Wea 


BASF  3  5- MICRO-FLOPPIES 

5SSDD-I3STPI^S2.34ea 
FOR  onOERS  ONLY: 

1-800-621-6827 

(In  Illinois  1-312-256-7140) 


INFORMATION  & 
INQUIRIES: 

1-312-256-T140 

HOURS  BAM-bPM  Central  Time.  Monday-Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 


tVlKK  Authorized  HBseller  ^_ 

UIQIX  Inlormation  Processing  "R  AC p 

WORLD!  ""• 


DISK  WORLD! 

Ordering  &  Shipping 
Instructions 


Shipping;  5'<"  &  3  5'  DISKETTES-Add  S3  00  per  each  100  or 
fewer  diskettes  Otlttr  Hems:  Add  shipping  criarges  as  shown  in 
add ition  to  other  shipping  charges  PaymenI:  VISA  and  MASTER- 
CARD accepted  COB  Orters:  Add  additional  S3  00  Special  Han 
dling  charge  APO,  FPO.  AK.  HI  i  Pfl  Orders;  Include  shipping 
charges  as  shown  and  additional  b%  of  total  order  amount  to 
cover  PAL  and  insurance,  Taies:  Illinois  residents  only:  add  7% 
sales  tax 

Prices  subiect  to  change  without  notice 
This  ad  suoercedes  all  other  ads- 

Not  responsible  lor  typographical  errors. 

MINIMUM  TOTAL  OHDER:  S35  00 


INFORMATION  * 
INQUIRIES: 

1-312-256-7140 


FOR  ORDERS  ONLY: 

1-800-621-6827 

(In  Illinois' 1-312-2567140) 

HOURS  3AM-5PM  Central  Time 

Monday- Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

629  Green  Bay  Road  •  Wilmette.  Illinois  60091 


DISK 
WORLD! 


PRINTER 
RIBBONS: 


at 

extraordinary 
prices! 

Brand  new  ribbons,  manutactured  to  Original  Eduipr^ent 
Manufacturer  s  speciticanons,  in  housings.  (Not  re-inked  or 
spools  only) 

LIFETIME  WARRANTY! 

Epson  MX-70/80  . .  S3.5B  ea.  -f  25c  Shpng. 

Epson  MX-IOO  ....  S4.95  ea.  +  25c  Shprsg. 

Okidata  MicroBS . .  S1.48  ea.  -i-  25C  Shpng. 

Okidata  MicroB4 . .  S3. 66  ea.  -i-  25C  Shpng. 

for  orders  only:  information  4 

1-800-621-6827  inquiries: 

(Inillinois  1-312-25B-7140)       1-312-256-7140 

HOURS  eAM-5PM  Central  Time.  Monday-f  nday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PHICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  inc. 

629  Green  Bay  Hoad  •  Wilmette.  Illinois  60091 


Til*  vahM  l«Ktar  in 
Computer  tupplln 
And  accenoriei. 


DISK 
WORLD! 


Now,  the  lowest 
prices  ever  on 

3M  Scotch 

7  DISKETTES 

LIFETIME  WARRANTY! 


The  best  deal 

on  3M  diskettes 

you've  ever  seen! 


I 


FLIP  N'  FILE  15 

with  every  order 

lor  5.25"  SSDD  and  DSDD. 


Si. 42  ea.  -  5  25-  SSDD  with  FREE  Flip  n'  File  15 
5  25'  DSDD  with  FREE  Flip  n  File  15  — $1.74  63. 

100"/o  LIFETIME  WARRANTY 

Tills  is  a  Super  Special  promotion,  it 
was  supposed  to  end  around  the  end  of 
May. 

But  we  decided  to  buy  more  than 
1.000,000  3M  diskettes  packed  In  the 
FREE  Flip  n'  File  15's...and  give  you 
.the  benefits  of  this  terrific  value. 

One  word  of  warning;  this  olfer  is 
limited  only  to  supplies  on  hand.  Once 
these  supplies  are  used  up,  the  prices 
stay  the  same... but  there's  no  free 
Flip  n'  File. 

The  last  time  we  ran  an  offer  like 
this,  everything  was  sold  out  in  about 
six  weeks. 

So  don't  wait.  Order  now. 

Other  3M  diskettes: 

(Flip  n' File  offer  ijoes  not  apply.) 

5.25"  SSDD-96TPI S2.06  ea. 

5.Z5"  DSDD-96TPI S2.57  ea. 

5.25"  DSDD-HD  for 

IBM  PC/AT S3.93  ea. 

3.50"  SSDD-135TPI  for 

Apple  Mac $2.86  ea. 

DATA  CARTRIDGES 

100%  certified  3M  data  cartridges. 

DC-1000 S13.90ea. 

DC-300XLP S19.83ea. 

DC-600A $22.13  ea. 

Sold  in  cases  of  10  only. 
Add  S5.00  shipping  per  10. 


DISK 
WORLD! 


Aulhattad  DnWhilof 
liifuiiMtKin  PrQC<*>tr*j 
ProducM 


presenting  .  .  .  CAPTURE" 

A  NEW  WAY  TO  UNLOCK  THE  POWER  OF  YOUR  C64  OR  0128* 

•  CAPTURE  IS  A  CARTRIDGE  THAT  PLUGS  INTO  YOUR  COMPUTER'S  EXPANSION  PORT. 

•  CAPTURE  DOES  NOTHING  -  UNTIL  YOU  PRESS  ITS  CAPTURE  BUTTON    UNTIL  THEN  A 

RUNNING  PROGRAM  CANNOT  DETECT   ITS  PRESENCE. 

•  CAPTURE  THEN  TAKES  CONTROL  -  NO  IPS,  ANDS  OR  BUTS  -  AND  PRESENTS  A  MENU. 

•  CAPTURE  WILL  NEATLY  SAVE  EVERYTHING  IN  YOUR  COMPUTER  TO  YOUR  1541  OR 

COMPATIBLE  DISK  DRIVE  -  ALL  64K  OF  RAM,  CPU,  VIC  AND  SID  CHIP 
REGISTERS  -  EVERYTHING.  IN  EASY  TO  VIEW  CHUNKS. 

•  CAPTURE  WILL,   IF  YOU  WANT,  PRE-CONFIGURE  YOUR  COMPUTER'S  RAM  SO  THAT 

ONLY  MEMORY  ALTERED  BY  YOUR  PROGRAM  NEED  BE  SAVED. 

•  CAPTURE  WILL  WRITE  A   BOOT  ON   YOUR   DISK  SO  YOU  CAN   RELOAD  AND  BEGIN 

EXECUTION  RIGHT  WHERE  YOU  LEFT  OFF. 

•  CAPTURE  DOES  ALL  THIS  AT  A  COST  OF  JUST  $39.95 

BUT  HERE'S  THE  BEST  PART 

•  CAPTURE  WILL  MAKE  AN  AUTO-START  CARTRIDGE  OF  YOUR  PROGRAM    IT'S  EASYi 

JUST  FOLLOW  THE  DIRECTIONS  ON  THE  SCREEN.  NOW  PLUG  IN  YOUR 
CARTRIDGE  AND  TURN  ON  YOUR  COMPUTER.  IN  LESS  THAN  TWO  SECONDS 
YOUR  PROGRAM  BEGINS  AGAIN  AT  PRECISELY  THE  POINT  WHERE  YOU 
CAPTURE'D  IT.  MAGIC! 

BESIDES  CAPTURE,  YOU  NEED  A  promenade  CI  AND  A  SUPPLY  OF  CPR3 
CARTRIDGE  KITS. 

ORDERING  INFORMATION 

•  CAPTURE  CARTRIDGE  —  COMPLETE  WITH  INSTRUCTIONS S  39.95 

•  promenade  ci  —  eprom  programmer  with  disk  software 99.50 

•  CPR3  CARTRIDGE  KIT  —  PC  BOARD,  CASE  AND  3  EPROMS 29.95 

•  DR— EPROM  ERASER,  TWO  AT  A  TIME,  3  TO  10  MINUTES 34,95 

•  STARTER  SET-  CAPTURE, promenade  ci  andi  cprs 149.95 

•  DELUXE  SET  -  CAPTURE,  promenade  ci,  dr  and  2  cpr's 199,95 

SHIPPING  AND  HANDLING  —  USA:  UPS  SURFACE  $3.00 

BLUE  LABEL  $5.00  NEXT  DAY  AIR  $13.00 

CANADA:  AIR  MAIL  $7.00  OTHER  FOREIGN  AIR  $12.00 

CALIFORNIA  RESIDENTS  ADD  APPLICABLE  SALES  TAX 
COD  ORDERS,  USA  ONLY,  ADD  $3.00 

C64  AND  C128  TM  COMMODORE  ELECTRONICS,  LTD.        *WHEN  OPERATING  IN  64  MODE 

TO  ORDER:  TOLL  FREE    800-421-7731  TECHNICAL  SUPPORT  AND    408-287-0259 

FROM  CALIFORNIA  800-421-7748  FROM  OUTSIDE  THE  US:     408-287-0264 


E3 


JASON-RANHEIM 

580  PARROT  STREET 
SAN  JOSE,  CA  USA  95112 


A  ATARI 


Atari  Hardware  Section 

ATARI  Is  a  trademgrk  ol  ATARI  INC 

Atari  130  XE  ...  Call  for  Latest 
Atari  1050  Disl<  Drive  . . .  Price 

SUPERPRINTER  PACKAGES 

SG-1 0  Printer  and  U-Prinl  A 289 

Panasonic  1091  and  U-Print  A 318 

Legend  880  &  U-Prinl  A 287 

Citoh  7500AP  -  and  U-Print  A 399 

Powertype  &  U-Print  A 379 

Super  Printer  Packages  have  no  extra  charges  when 
shipped  in  Continental  USA. 


GENERAL 
HARDWARE 


ATARI  INTERFACES 

Aid  interfast  I  .-99,95 

U-PfintA  59.95 

U-Print  A' 16K  Buffer 

79  95 
U'-Pfint'A,32K  Buffer 

99  95 
ij'-PrintA/MK  Buffer 

f09.95 

R-Verter  Adaptor     39.95 


INDUS  GT 

for  Atari    219 

MPP  lOOOE 

Modem   89.95 


NEW 

U-Call  Ivflodem 
Adapter 44.95 


ni  ill^L:(L;y/^d 


Batteries  Included 
80  Column  Cartridge 

B-Graph-D 44.95 

Beactiliead-D   ...  21.95 
Jupiler 
Missian-D  31.95 


S.A.M.-D... 
Home  Pak-D 
Crusade  In 
Europe-D  . 


Super  Special  Prices  Ellecttve  Now  Througti  Septemtier  31 .  19t!> 


ATARI  SOFTWARE 


BRODERBUND 

Bank  street  Wriler-D  mib 

Loderunner-D    23  95 

Spelunker-O  20,95 

Slelth-n  .  ,  20  95 

Print  Shop-D        ,.    ,  34  95 

Serpent's  Star-0  27  95 

Print  Shop  Paper 16  95 

Print  Shop  Graphics-D  19  95 

ELECTRONIC  ARTS 

Archon  19  95 

Arclion  II                ,    .  24  95 

Mule 19,95 

Realm  Irnpossitiility   ,  19.95 

Wurd&rZinderneut      .  19  95 

Music  Construction  19.95 

Pinball  Construction  19  95 

One  on  One     24  95 

Seven  Cities  ol  Gold  24.95 

Financial  Cooktiook  29.95 

INFOCOM 

Enchanter-D 24.95 

Zork  l-D 24  95 

Hitctiiker-D 24,95 

Cutthroats-D    24.95 

Wistit)ringer-0 29.95 

MICROPROSE 

F-l 5  strike  Eag!e-n  23,95 

CrusaCe  -,a  Europe-D  27  95 

Decision  in  Oeserl-D  27  95 

KennEdy  Approarli-D  23  95 

MISCELLANEOUS 
ATARI 

lligtit  Simulator  ll-O  34,95 

Megafonl  II  +  -0   19.95 

Monkey  Wrench  ll-Cart  23,95 

Beachhead-D  21  95 

NetWorth-0    49  95 

Omnitrend  tlniverse-D  69,95 

MMG  Compiler-D  ...  69  95 

Summer Games-D  ...  27,95 

Ultima  l-D   23,95 

Ultima  ll-D 37.95 

Ultima  lll-D     37  95 

Ultima  IV-D      41 ,95 

Letter  Peilect-D  39.95 

Data  Per(ect-D  39.95 

Micro-Leas  Bsseball-D  23  95 

Paper  Clip-D  39  95 


MISC.  ATARI  (contd.) 

On-Trick  Racmg-D  . .  20.95 
Bounty  Bob-Cart  ...  29.95 
Ramiod  XL  . ,  79  95 

Alien  Voice  Box        . ,  99.95 

OSS 

Basic  XL-Cart 

MAC  65XL.Cart  

Action-Cart 

Writers  Tool-Cart 
MAC  65  Tool  Kil-D 
Aclion  Tool  Kit-D 
Basic  XL  Tool  Kit-D 

SSI 

Carrier  Force-D     .     . 

Combat  Lcader-0 

Cosmic  BalanCE-D  . . . 

Broadstdes-D 

50  Ivlission  Crush-D  . 

Rails  Wcst-0      

Computer  AmbusN'D 
Computer  Baseball-D 
Breaklh  rough 

Ardennes-D   

Imperium,  Galatium-0 
Oper  Market 

Garden-D  .    . 

Kamplgruppe-D 
Compuier 

Ouarterback-D  . 
t;olonial  Conquest-0 
Gemslore  Warritjr-D 
SiK  Gun  Shooloul-D 


54.95 
69.95 
59.95 
69.95 
27  95 
27  95 
27  95 

37.95 
24-95 
24-95 
24.95 
24.95 
24  95 
37  95 
24  95 

37  95 
24  95 

32,95 
37  95 

2495 
24.95 
21  95 
24.95 


SYNAPSE 

Synflie-D        34,95 

Syncaic-D    34.95 

Syntiend-D    34.95 

Synctiron-D  27.95 

Syncomm-D  27.95 

Synslock-D   27.95 

Relan-D   79.95 

Blue  Max  2001-D    ...  23,95 

HUNDREDS 
OF  ITEMS 
AVAILABLE. 
PLEASE  CALL 


Tt«  PQWIP  trwvO'  "^  •■■mB  mate 

SG-10  219 

SG-15  369 

SD-10  339 

SD-15  449 

SR-10  Call 

SR-15  Call 

PRINTER  BUFFERS 

f«1icrola2er Call 

U-Prinl-16K  ...  79.95 
U-Print-32K  ....  99.95 
U-Pnnt-64K  ....  109.95 


MODEMS 

Volksmodem  300   . .         59 
Volksmctleni  1200       ..  169 

Hayes  1200      Call 

Hayes  300  ,.,     169 

Micromodem  HE  Call 

Maxwell  300,1200         .319 

PRINTERS 

Citoli8510AP+         .329 

Legend  lOBO 239 

Ciloh  7500AP   219 

Epson       Call 

Tosriiba  1351  Call 

Toshiba  1340    Call 

Legend  830    219 

Panasonic  109O  199 

Panasonic  1091    249 

Powertype 309 


With  The  Purchase 
Of  Any  Printer 

Buy 

The  Print  Sliop-Apple 31.95 

The  Print  Sliap- 
Atari  &  C-64 27.95 

Su|>er  Speclil  Pricet  Ellective  Hm  Tlini  Senlember  31. 1985 


APPLE 


BRODERBUND 

Print  Stiop-D 
Karaleka-O 
Champ  Loderunnei-D 
Bank  Street  Writei-D 
Print  ShopGraphics-D 
Dazzle  Draw 

SSI 

Gemstone  Warrior  ,  , 

Kampfgruppe    

Phanlasie  , 

Oueslron 

APPLE 

Ghoslbuslers  , 
Flight  Simulator  II 
F-l  5  Strike  Eagle     . 

Summer  Games 

Micro  League  Baseball 
Star  League  Baseball 
WuariJiy.  Proving 
Ullimj  III      ,    . 

Bruce  Lee    

Millionaire 

Dealh'Carnbean 

Felony 


33  95  Hitchiker 

21  95  Zork  I,  II  or  III 

21  95  Enchanter 

44.95  Deadline 

17  95  Wisbrmger-D 

3995  ELECTRONIC 

Skyfoit  

21.95  One  on  One  

39,95  Seven  Cilies,'Gold  . 

25  95  Arction 

33  95  Adv  Construction  Ki 

MISCELLANEOUS 

25  95  Conan 

34  95  Sargon  II! 

2195  Dollars  &  Sense 

25,95  PFSFile  

29.95  PF5  Write.. 

23  95  PFS  Report   . . 

33.95  Multiplan   

39.95  Supercalclll    .. 

25.95  Sideways  

33  95  Crosstalk  .    . . 

21.95  Jane  W'Mouse 

21.95  BPISoft^iare  .. 

EST.  1982 


29  95 
29.95 
.  29.95 
34  95 
29  95 

ARTS 

. .  29.95 
. .  29.95 
.  29.95 
2495 
It     37  95 

25  95 
33.95 
64.95 
79-95 
79.95 
7S.95 
84  95 
124  95 
39  95 
129.95 
129.95 
.  , ,  Call 


PO,  Box  17882.  MilVfaukee.  Wl  53217 

OHDEB  LINES  OPEN 

Mon-Fn  11  a  m,  -  7  p  m   CST  •  Sat   12  p  m   -  5  p  m   CST 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Into,  Order 
Inquiries,  or  for  Wise.  Orders 

414-351-2007 

ORDERING  INFORMATION:  Please  specify  system 
For  last  del  very  sfirnt  cashier's  check,  money  order  or  direct  bank 
Iranslcrs  Personal  and  company  checks  allow  2  weeks  to  clear. 
Charges  for  COD  are  S3-0D  School  Purchase  Orders  welcome.  In 
CONTINENTAL  USA.  include  S3  00  shipping  per  software  order. 
Include  4%  shipping  on  all  Hardware  orders,  minimum  54.00 
Mastercard  &  Visa  please  include  card  #  and  expiration  Uate.  Wl 
residents  please  add  y<,  sales  tax  HI.  AK.  FPO,  APO.  Canadian 
orders  —  add  5*o  shipping,  minimum  S5.00  All  other  foreign 
Orders,  please  add  15*o  shipping,  minimum  SIO  00  All  goods 
are  new  and  include  ladory  warranty  Due  to  our  low  prices,  al 
sales  are  linal  All  deleclive  returns  must  have  a  return  authoriia- 
tion  n umber  Please  call  4 1 4-351  -2007  to  o btai n  an  HA#  or  your 
return  will  NOT  be  accepled  for  replacement  or  repair  Prices  and 
availability  are  subject  to  change  without  notice 


COMMODORE  64^ 


SUPER  PRINTER  PACKAGES 

SG-10  &G-WIZ  282 

Panasonic  1091  &  G-WiZ  313 

Panasonic  1090  &  G-WiZ  261 

Legend  880  &  G-WIZ   271 

Legend  1080  &  G-WIZ    291 

Citoh  8510AP&  G-WIZ  395 

Super  Printer  Packages  have  no  extra  charges 
added  when  shipped  in  Continental  (JSA 

MODEMS  Animation  Station 

Weslriilge  AA  AD     59.95      for  C-64 59.95 

Total  TelE  Motlem    49.95     PRINTER 

f'f;!l'^° llil    INTERFACES 

1660  Modem...  49.95     ^^^^    gg  gj 

INDUS  G-Wiz    ...  59.95 

Indus  GT  for  C-64      239     Data  Stiare  PPI  , .  49.95 
Garden  G   '    .         .  Call 


C'-m  mPEm  BPwcmm 


Consullanl-D   

Voice  Messenger 

Reach  For  The  Stars-D 
Star  Rank  Boxing-D  . . . 
Computer  Ambush-D  .. 

Carrier  Force-D  

Kampfgruppe-D  

Carriers  At  War-D   — 
Superbase  64-D  


COMMODORE  SOFTWARE 

ACCESS  MISC.  COMMODORE 

Bcacihead-D 21,95  Flight  Simulator  ll-D  34.95 

Beacihead  ll-D    24.95  Star  Leag.  Baseball-DT  23  95 

RaldMoscow-D     .     .24  95  Maslertype-D'Cart     ,27.95 

MachV-Carl  2195  Strip  Poker-D  .23.95 

BATTERIES  INCLUDED  sam-^  4195 

Consultanl-D  54.95        g 

Papercl.pwSpe,lpak.D    79.95         t„g^B3,.B:_     J; 

Super  Busscard  II        129  95  n,rrJr.n  Tnm 

*™  0^^  tems-D    16.95  ^.S^enms-OT  2195 

B         OO  Card  lUy.yb  r  h  r  c-*    .       c       I      n  T  i^^  fiE 

Cal-Kii   34  95       :l^^':ft^=r  ??f, 

u .  0,1,  n  ia  05  l^bvie  Maker-D  37  95 

™..."^„„^..-  VIPTerminal-D  29  95 

COMMODORE  ooodieo  2795 

EasyCalc-Carl  34  95  Ghost  Buslers-D         ,24  95 

Easy  Mail-D  19.95  Koala  Pnnief-D     .  19  95 

EasyScript-D         .      44.95  Karateka-D    .         .  20  95 

£asySpell-D  .     .1995  Print  Shop-D  34  95 

Logo-D  49.95  Amazon-D  .  22.95 

The  Manager-D    34.95  Rendezvous  Hama-0  22.95 

Suspended-D  .29,95  Farenhelt451-D      ,    ,22  95 

SlarcfOSsD     29  95  Dragonworld-D     ,  , .  22,95 

Deadiihc-D  29  95  Shadow  Keep-O      ,22  95 

Cutthroats-D    .  29  95  Spy  vs  Spy-D  23,95 

The  Susped-0    29,95  Stress  Relax  Sys  -D  79  95 

Zork  I  II  or  lll-D      ,29.95  Blue  Max-D  T 23  95 

ELECTRONIC  ARTS  uitimaii-D  3795 

Sky  Fo.-D  24  95  Ultima  lll-D  ,    ,  37  95 

Mail  Ordei  Monslei-D    24.95  IJ'"™  '^^  ■"  ^^ 

Adv  Construction -0      29  95  Micro-League 

Racing  Destiuchon-0    24  95         Basebail-D  .  29  95 

lucrifniui  Home  Pak-D  34  95 

INrUbUm  Math  Blasler-D  34  95 

Encnanler-D  24  9=  woid  Attack-D  ,  34  95 

Planellall-D  24  95  gpje,)  Reajj,  n  49  95 

Sorcerer-D  ,        23.95  stunt  Flyer-D  Call 

Hilchiker-0      24.95  ^^,^^„  |||.q  34  95 

Wtshbringer-D  29,95  Super  Zaxxon-D      ,  23  95 

SSI  DeciSion'Desert-D  .    ,  27,95 

Gucstron-D   24,95  Kennedy  Approach-0  23,95 

Ptiantasie-D  24,95  CrusadeEuropc-D  27  95 

Germany  1985-D  .  , ,     37,95  Halley  Projecl-D      .  , ,  29,95 

Wings  of  War-D      ,      24  95  Transylvannia-D  23,95 

Fighter  Command -D      37,95  Bounty  Bob-Cart    ,.,  34,95 

Mecr  Brigade-D    ,        37  95  Blue  Max  2001-0  23  95 

Norway  t985-D  2195  Fleet  System  ll-D  49  95 

See  Alan  Stxnon  lor  Best  0/  Evalyn  Wood-O  34  95 

Hems  mH  Prices  Write  Now-Cart  34  95 

Bruce  Lee-D  27  95 

T-Cassette  Conan-D  27  95 

D-Dlsk  Fast  Load-Cart  25  95 

Carl-Cartridge  Net  Worth-D  49  95 


No  surcharge  for  MasterCard    P^rj  or  Visa   !S 


Classified 


COIVIPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capital 
letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire  ad  set 
in  boldface  (any  number  of  tines.) 

Terms:  Prepayment  is  required.  Check,  money  order,  American  Express,  Visa,  or 
MasterCard  is  accepted. 

Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline 
words  to  be  set  in  boldface. 

General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Orders  will  not  be  acknowl- 
edged, Ad  will  appear  in  next  available  issue  after  receipt. 

Closing:  10th  of  the  third  month  preceding  cover  date  (e,g„  June  issue  closes  March 
10th),  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTE!, 
P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry  Blair  at 
(919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of  advertisers, 
but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


SOFTWARE 


LOTTO  PICKER.  Go  for  Million  Dollar  Jackpots! 
Picks  all  USA  Lotto  games  +!  PRO  FOOTBALL 
ANALYST.  Beat  the  points  consistently  and 
easily!  They  pav  for  themselves!  Each  $35.  IBM- 
PC/tl99  ver.  RIDGE,  170  Broadwav,  ««201-C, 
NYC,  NY  10038,  718-833-6335.  Free  Catalog 
avail. 

SPANISH  GERMAN  &  FRENCH.  1000  drills. 
Extensive  vocab/exciting  games.  Allows  600  user 
exercises.  Apple  !l-r/e/c  64K.  Specifv  language. 
S24.95  +  SI  Shipping.  AET,  P.O.  Boi  6591, 
Bridgewater,  NJ  08807, 

FIXED  ASSET  DEPRECIATION  on  Commodore 
64.  Handles  acrs  and  pre-acrs  methods.  $39.95. 
For  free  info  write:  MPM  Software  Prods,,  P.O. 
Box  3522.  Glendale,  CA  91201. 

FOOTBALL  PREDICTION  PROGRAM  for  €64  & 
IBM.  Impress  friends  with  picks  calculated  from 
newspaper  stats,  incl.  turnovers,  injuries,  etc. 
Pkg,  includes  1984  year-end  Pro  stats.  Send 
$25.95  to;  JZL  Systems,  201  Brookside  Ln, 
Somerville,  NJ  08876 

FREE  EDUCATIONAL  SOFTWARE  CATALOG. 

112  pp,  color  pictures,  1000 -*-  programs  for 
Com,  Apple,  IBM,  Atari,  Send  name  +  address 
to;  interstate  Software,  P.O.  Box  8952,  Boise,  ID 
83707,  (208)  342-3347 

WORD  WARS!— A  crossword  game  for  1  or  2. 
Beats  Monty  a  mile!  Send  for  FREE  how-to  bklet. 
C64  cass.  S24.9S.  No-hassle  guar.  Rollingwood, 
FOB  364,  Richmond,  CA  94806 

TI-99/4A  Software/Hardware  bargains. 
Hard  to  find  items.  Huge  selection.  Fast 
Service.  Free  Catalog.  D.E.C.,  Box  690, 
Hicksville,  NY  11801 

SUM  COINS  C64  COIN  EDU.  SOFTWARE. 
GRADES.  K-3,  Number  &  type  of  coin  options. 
Speed  Drills,  &  number  of  problems.  $12.95  cass. 
$14.95  disc.  HIS  KIDS  SOFTWARE,  2895S. 
Mudd  Creek  Rd.,  Oak  Harbor,  Ohio  43449 

WAR  GAMES  DIALER-ATARI  835/1030 
MODEMS.  Send  S11.95  to  MK  Software 
39  Eaton  St.,  Buffalo,  NY  14209 
Personal  checks  take  2-4  wks.  to  clear. 

ATARI  USERS.  4  games  on  cassette,  125.  Saucers 
-I-  monsters,  poker,  seafinder,  pinball.  Write  or 
call  Keith  Anderson,  8435  12th  Ave,,  Silver 
Spring,  MD  20903  (301)  434-0285 


AMCUP,  AN  ORIGINAL  sailboat  racing  game. 
1  or  2  players,  C-64  w/154l  -I-  joystick. 
S14.95  ch/m.o.  SASE  for  info.  Dream  Dog 
Software,  P.O.  Box  1724,  Eugene,  OR  97440. 

"CRAPSMAN!"  The  C-64  casino  craps  tutor! 
Learn  all  bets.  Test  systems.  Up  to  four  players. 
$31.95  pp,  disk,  EMCEE  SOFT  CORP.,  P.O,  Box 
402124,  Miami  Beach,  FL  33140, 

SHOPPING  LIST  PROGRAM  for  C-64  with 
1541  disk  and  printer.  It  prepares  a  shopping  list 
for  meals  you  select,  organized  by  your  market 
sections.  Send  $42  to  4955  Woodman  Ave., 
Sherman  Oaks,  CA  91423 

SOFTWARE  PROTECTOR  64.  Copy  and  list 
protect  your  valuable  Basic  programs. 
Only  $10  (disk  only).  Systems  Software, 
44  Rte  25A  #209,  Smilhtown,  NY  11787. 

PiNOCHLE  for  Commodore  64,  PC  and  PCjr. 
Real,  double-deck,  partnership  pinochle 
gives  you  a  partner  and  two  opponents! 
On  disk,  $25  postpaid.  Jim  Bernard,  8018 
Sunset  Path  Ct.,  Springfield,  VA  22153. 

Tl  CHECKWRITER  Letter  code  and  dollar 
amount  are  all  that's  necessary  to  print 
a  complete  check.  Provides  yearly  totals 
for  taxes.  Disk  $24.95.  R.l. P.' Software, 
248  Purisima  Rd.,  Woodside  CA  94062. 

SCIENCE  SOFTWARE  with  graphics  for  the 
Commodore  64.  Astronomy  programs,  etc. 
Catalog  and  demo  disk  $3.  IJavid  Eagle, 
7952  W.  IJuarto  Dr.,  Littleton,  CO  80123. 


HARDWARE 


Trade  in  your  used  Cofninodore  or  Atari  on  a 

brand  new  C-128  or  Atari  ST.  This  offer  may  not 
be  available  through  retail  outlets.  Brochure 
$1.50  and  SASE.  NEW  WEST  TECHNOLOGY, 
4B  Monroe  Pkw.,  Box  200,  Ste.  134,  Lake 
Oswego,  OR  97034 

T.I.  99/4.A:  Full  memory  expansion  for  your  T,l, 
Computer!  New  memory  added  entirely  within 
the  computer  console!  No  plugs  or  external 
power  needed.  Write:  Tim  Northrup,  3305 
Rutherglen,  EI  Paso,  Texas  79925 

REPLACEMENT  POWER  SUPPLIES  FOR 
C-64  or  VlC-20.  $29  ea,  plus  S3  shipping, 
64  parts  list  S5 -refundable  w/lst  order. 
AA  Computer,  2726  Park  St.,  )AX,  FL  32205. 

NUMERIC  KEYPAD  with  joystick  CURSOR 
control,  gold  contact  $75.  Centronics  interface 
$40.  Autodos  cartridge  automatical  Iv  loads 


programs  from  easy-to-use  menu  $40.  All  C-64 
fully  compatible.  SS  64  RF  Mod.  $40,  Battery 
Back-up  with  best  available  protection  for  C-64 
550,  Apple/IBM  $150  (U.S.)  APPLIED 
COMPUTING,  Box  1566,  PTBO,  ONT  K9J  7H7. 
Send  $2  for  cat.  Call  (705)  745-8617  anytime. 


MISCELLANEOUS 


■YOU  NEED  A  MAG-RAK!  Ends  awkwd  fumbling 
when  entering  programs.  Holds  &  jlneguides  an 
entire  magazine!  $34.95  V/Mstcd/Ck/MO— 
Stop  suffering — Order  yours  today. 
(213)  662-6905,  R&L,  Bx  26A89,  LA,  CA  90026 

Maxell  MDl,  SI. 39  -  MDZ,  $1.99.  Dysan 
104/lD,  $1.79  -  104/2D,  $2.39.  Shipping  $3.75. 
Also  Verbatim,  IBM,  3M,  BASF  TAPE  WORLD, 
220  Spring  St.,  Butler,  PA  16001, 
1-800-245-6000,  Visa,  MC. 

SELL  YOUR  COMPUTER 

National  Listing  Service:  $19,95.  Listed  until 

sold.  No  commission  fees.  All  types  of  computer 

equipment/peripherals. 

1-800-TEC  TRAN 

Visa/MC  accepted,  In  MA  (617)  491-4888. 

FREE!  SHOP  BY  MODEM  in  our  revolutionary 
electronic  shopping  mall.  We  even  accept  credit 
cards!  We  have  products  YOU  want!  Call 
1-818-840-8066  with  your  modem  NOW! 

FLYING  COMPUTERS  but  stuck  on  the  ground? 
Learn  requirements  to  fly  aircraft,  with  or  with- 
out license.  S3. 00  to:  Aviation  Resource,  P,0,  Box 
369-C,  Lancaster,  NY  14086. 

Super  99  Monthly — quaiity  info  for  TI-99/4A 
&  compatibles  since  09/84.  US  $12/yr.  Other 
S16/yr.  Bytemaster  Computer  Svces.,  171 
Mustang,  Sulphur  LA  70663. 

BUY-SELL-TRADE  computers,  hardware,  soft- 
ware. Announce  clubs,  BBS's,  etc.  Send  for 
free  sample  of  Micro-Swap,  the  computer 
classifieds.  P.O.  Box  24,  Esmond,  IL  60129. 

COMPUTER  OWNERS!!!  Earn  dollars  and  save 
money  with  your  computer,  Write  C&D 
Associates,  Box  831,  Mt,  Prospect,  IL  60056. 
Spedfy  computer  type.  No  Investment!! 

T1-99/4A  Software/Hardware  bargains. 
Hard  to  find  items.  Huge  selection. 
Fast  Service.  Free  Catalog. 
D.E.C,  Box  690,  Hicksville,  NY  11801 

HELP  IS  ON  THE  WAYl 

Just  call  1-800-334-0868  to  get  your  free 
copy  of  the  latest  COMPUTE!  Books  Catalog! 
If  you  reed  help  in  getting  information  on 
all  of  the  latest  COMPUTE!  book  titles 
available  plus  all  COMPUTE!  backlist  titles, 
call  us  today! 

SAFEGUARD  YOUR  COMPUTER  KEYBOARD 
from  contaminants  with  OVERBYTE  molded 
keyboard  covers.  $24,93  xparent  &  durable. 
Call  (213)  866-2583/send  $2  further  info, 
OVERBYTE,  P,0,  Box  10652,  Burbank,  CA 
91510. 

PHONEMARK  DATASETTES:  C64,  P!us4,  Vic-20. 
$25.00  plus  shipping.  We  are  direct  importers. 
American  Mercantile  Co.,  2450  1st  Ave.,  South, 
Seattle,  WA  98134  (206)  624-6141. 

DISK  SERVICE  MANUAL.  Service  floppies 
without  special  software  or  equipment. 
FREE  information.  Consumertronics-DSM, 
P.O.  Drawer  537,  Alamogordo,  NM  88310. 

$S  MONEY  MAKER  $S 

Increase  your  income  by  hundreds  and  even 
thousands  of  dollars.  Money  back  guarantee! 
(Apple,  Macintosh,  IBM)  Free  brochure: 
1-800-223-5838  (305-771-6498). 
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DataTech 

DISKETTES 
VBlue  Priced  Disketlesl 


Litettms  WBrrsrtiyi    Hub  Rings'     lOO^i  Error-Freef 
:</<"  OlikeHn— Boixl  10/Boi 

SSSD *  .97  Each 

SSDD $1.07  Each 

DSDO  J1.17  Each 

HD  for  PC/AT *J.4I)  Each 

iV  Dlikettaa 

SS S2.25  Each 

DS  ■  S2.95  Each 

SUPER-SAVINGS  ON  POLY-PACK  DISKETTES 
Wilh  Envelopes.  WP  Tabs.  User  ID  Labels 

SS  SD $.69  Each 

SSDD j.79  Each 

DS  DD ......,,.. $.B9  Each 

Minimum    order    —    50    Diskettes     Ouanlily 

Discounts  Available    Ml  Residents,  add  4''„  Sales 

Taj    Shipping  &  Handling  S4  00. 100  Diskettes 

CO  D-,  add  S3-00  Cert   Ctieck  Money  Order 

TO  ORDER:  Call  or  Write... 

dll     Precision  Data  Products 
P.O.  Box  B367 
11     Grand  Rapids.  Ml  49508 
II      1618(452.3457 

Mictiigan  1   800  632  2468 

Outside  rviicti.  i-eao.?58-oo28 


C.O.D. 


VOICE 

COMMAND 

YOUR  MICRO  )i!2^ 

SMART  EARSII 

•  SMART  EARS  11  IS  A  FAST 

•  STATE  OF  THE  ART  UDICE 
»    RECOGNITION  MODULE.  ITS  THE  ^^^ 

•  WORLDS  FIRST  UOICE  CDHnAND  ^Kr^ ^ 

•  JDVSTICKiMflNY  GAMES  CAt*  BE  PLAYED  ,^.^TOp 

•  WITH  VOOR  VOICE, IMAGINE  THAT'        'o, 

•  CAN  BE  USED  TO  CONTROt.  BSR      $69  ^/ 
»  MODULES , TELEPHONE  DIALERS  Si 

•  ROBOTS. COMBINED  WITH  OPTIONAL  HODULES 

•  YOUR  I^OMPUTER  COMES  ALIVE! 

•  INCLUDES  SOFTWARE  AND  HEADSET  MIC. 


MAGIC  64 
fAOUSE 

469 

Cbi    MOUSE  COMPLETE  WITH  ICON 
TYPE  GRAPHIC  SOFTWARE  AND 
SPRITE  PEBItSNER  .  16  COLORS 


FREE  ROBOT 


ADD  *4  SHIPPiNBi 

TVTRO.V 

1959    SUNSET    BI_VD 
LCK    ANGELES   C.  A.  "70027 


FREE:- 
MITH    YOUR    ORDER 

m  m  6.h.  TAX 


TELEPHONE 
(215)     6&07S11 


Moxell  Floppy  Disks 

The  Mini-Disks 
with  maximum  quality. 


Dealer  inquiries  InviteiJ.  C.O.D's  accepted. 
Call  FREE  (800)  235-4137 


PACinC  EXCHANGES 

100  Foothill  Blvd.  San  Luis 
San.  Luis  Obispo.  CA  93401 
in  Cal.  call  (800)592-5935  or 
(805)543-1037 


maxell  disks 

LIFETIME  WARRANTY 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatled  and  hard  sectored  disks 
in  stock-Dealer  inquiries  invited. 

COD,  VISA.  MASTERCARD 
AH  orders  shipped  within  24  hrs. 


Ai^ 


m 


NORTH  HILLS  CORP. 
INTERNATIONAL 

3564  Rolling  View  Dr. 

White  Bear  Lake,  MN..55110 

MN.  call  collect— 612-770-0485 


3M  Diskettes 
Lifetime  Warranty 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatted  and  hard  sectored  disks 
in  stock-Dealer  inquiries  invited. 

COD,  VISA,  MASTERCARD 
All  orders  shipped  within  24  hrs. 


AM  ^ 


NORTH  HILLS  CORP. 
INTERNATIONAL 

3564  Rolling  View  Dr. 

While  Boar  Lake,  MN.  SSllO 

MN.  call  coilecl-612-770.0485 


QUALITY  MEDIA 
LIFETIME  REPLACE 

GUARANTEE 

HUBRINGS.TYV.EPS. 

WRITE  PROTECTS 


Secausewebuy 
in  huge  volume  to 
supply  software 
manufactureis,  our 
prices  can't  be  treat 


so*  250-F  500-t  1000-1- 

5,25' SSDD     too         90  35  .80         75 

525'DSDD     1.15       1.05  1.00  .85         -85 

PCFORMATTED     145       1,35  1.25  1.15       1.10 

3  5'1D(Forl^ac)    2  70     2  60  2.45  CALL   CALL 

35'20{ForHP)     3  50     3  26  3  15  CALL   CALL 


^ 


BLACKSHIP 

COMPUTER  SUPPLY 


R  0.  Box  B83362  •  San  Francisco.  CA  941 88 

Inquiries  +  No.  Cal.  orders  415-550-0512 

So.  Cal.  orders  800-235-6647  x31 

USA  orders  800-235-6646x31 

Add  t3  00  shipping  and  tiandling 
iCA  residents  add  6  5%  sales  tax]  VISA/MC/COD 


\ferbatim 

flexible  disks 

Call  Free  (800)  235-4137  for 

prices  and  information.  Dealer 
inquiries  invited.  'C.O.D.  and 
charge  cards  accepted. 


)7&|- 


PACIFIC 
EXCHANGES 

100  Foothill  Blvd. 
San  Luis  Obispo,  CA 
93401.  In  Cal  call 
(800)  592-5935  or 
(805)  543-1037. 


CAPUTE! 


Modifications  or  Corrections  To  Previous  Articles 


Advertisers 
^Index^ 


Animator  For  Apple  And 
IBM 

In  the  August  issue,  eleven  pro- 
gram lines  were  inadvertently 
omitted  from  the  Apple  version  of 
this  graphics  utility  (BASIC  portion, 
Program  6,  p.  58).  The  missing  lines 
are  as  follows: 

B4  1030  E7.  (J,I)  =0:  FOR  D  =  £1  T 
0    h:T    =     INT  (D  /  2) :  PRI 
NT  CHR«  (46  +  13  t  (0  - 
T  «  2) ) ;:D  =  T:  NEXT  :  N 
EXT  :  IF  I  <  23  THEN  PRI 
NT 

3B  1040  NEXT  :  RETURN 

C7  1050  POKE  242,0:  CALL  32777,0 
!  GOSUB  1010J  CALL  32768 
,0,206,12:  RETURN 

DC  1060  CALL  32768, A, 206, 12 

:B  1070  VTAB  1:  HTAB  27:  PRINT  " 
ONE  MOMENT"; 

Df  1080  CALL  32774,  A:  FOR  I  =  0 
TO  23:  FDR  J  =■  0  TO  2:  I 
NPUT  ■■";E-/.{J,  I)  :  NEXT  : 
NEXT  :  CALL  327B0 

n  1090  HOME  :  FDR  I  =  0  TO  23: 
FOR  J  =  0  TO  2:0  =  EX (J, 
I) 

92  1100  FDR  Q  =  0  TO  6:T  =  INT  ( 
D  /  2):  PRINT  CHRS  (46  + 

13  *  (0  -  T  «  2)  )  ;  :n  = 
T:  NEXT  :  NEXT  :  IF  1  < 
23  THEN  PRINT 

SC  1110  NEXT  :  HTAB  27:  VTAB  1: 
PRINT  SPC(  10)!  RETURN 

84  1120  GOSUB  560:  GDSUB  700:  VT 
AB  19:  HTAB  10:  PRINT  "I 
NSERT  BOX  ";A;:  GOBUB  11 
60:  IF  C  =  206  THEN  1150 

The  last  line  of  the  IBM  version 
(Program  1,  p.  52)  was  partially 
obscured.  It  should  read  as  follows: 

en  25040  AS=rNKeYS:IF  A«<>"  "  TH 
EN  2S040  ELSE  RETURN 

Atari  List  Scroller 

This  utility  program  in  the  July  is- 
sue (p.  68)  will  crash  because  of  a 
line  numbering  problem.  Line 
32702  should  be  revised  as  follows: 

32702  LNUM=PEEK (A) +PEEK ( A 
+l)t256:IF  LNUM>=32 
700  THEN  32704 

Thanks  to  William  Webb  and  oth- 
ers who  pointed  this  out. 

IBM  Proofreader 

A  bug  was  uncovered  in  our  IBM 
"Automatic  Proofreader,"  pub- 
lished in  "COMPUTEI's  Guide  to 
Typing  In  Programs"  since  October 
1984.  It  has  been  hidden  until  now 


because  it  appears  only  when  the 
first  characters  following  the  line 
number  in  a  program  line  are  either 
D  or  E  followed  by  a  number,  as  is 
the  case  in  lines  110  and  120  of 
Program  3  from  "Viewports  in  IBM 
BASIC"  (July  issue,  p.  71).  In  these 
cases,  the  VAL  function  in  line  190 
interprets  the  characters  as  indicat- 
ing exponential  notation,  leading  to 
an  incorrect  line  number.  The  solu- 
tion, suggested  by  reader  Daniel 
Norling,  is  to  make  the  following 
additions  and  changes  to  the 
Proofreader: 

SS  190  REM 

JB  205  BL=INSTR  (L»,  •'  ">:IF  BL  =  0 
THEN  BL*=L«:G0TD  206  ELSE 
BL*=LEFT4(L«,BL-1) 

BH  206  LNUM=VAL(BL*) :TEXT*=MID4( 
L«,LEN(STR»(LNUM) )+l) 

n  470  WHILE  NOT  E0F{1):LINE  INP 
UT  #l,L*:BL=INSTR(LJi,  "  ") 
:BL*=LEFTS(L»,BL-1) : LNUM ( 
P>=VAL(BL«) :L*(P)=MID*(Lt 
,LEN(STRS(VftL(BL$)  )  )+l)  :F■ 
=P+1:WEND 

Apple  Universal  INPUT 

There  is  an  error  in  the  machine 
language  for  this  INPUT  enhance- 
ment routine  from  the  June  issue  (p. 
91),  although  you  can  use  the  rou- 
tine with  no  problems  most  of  the 
time.  As  reader  Don  Andrews  dis- 
covered, the  bug  becomes  apparent 
only  when  you  attempt  to  input  a 
string  more  than  76  characters  long. 
(An  LDY  $00  instruction  was  used 
where  an  LDY  #$00  was  required.) 
The  routine  can  be  fixed  by  chang- 
ing the  164  in  line  280  to  a  160: 

2B0     DATA     30,3,160,0,204,3 
0,3, 240 
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E  BUILT  IT  FOR  YOU 

THE  ATARI  520ST 


"We  promised. 
We  delivered. 
With  pride, 
determination, 
and  good  old 
ATARI  know  how." 
Sam  Tramiel, 
President, 
ATARI  CORP. 


-No  Other  computer  we  know  of 
has  been  awaited  with  such  antici- 
pation, has  received  so  much 
national  and  trade  press,  and  has 
been  so  unanimously  acclaimed  — 
as  the  remarkable  520ST. 

And  forgood  reason.  Its  develop- 
ment represents  a  bold,  new  stan- 
dard in  personal  computing  power. 
The  520ST  simply  obsoletes  all  current  personal 
systems  —  even  those  costing  thousands  of  dollars 
more.  Beneath  its  full  stroke 
94-key  keyboard  is  an  operating 
environment  so  intelligent  that 
jt  puts  you  in  command  almost 
at  once.  It's  that  easy. 

Graphic  symbols  quickly 
identify  available  functions. 
Menus  appear  just  by  aiming 
the  mouse.  Point  to  a  specific  operation, 
click  the  mouse  and  instantly  you  are 
able  to  develop  full  color  charts,  recall 
flies  from  within  folders,  and  so  much 
more. 

And  when  you  combine  524,288 
bytes  of  RAM  with  ATARI'S  custom 
circuits  and  the  horsepower  of  a  68000 
microprocessor,  you  own  a  powerful 
computer  that  delivers  crisp,  high  re- 
solution images  with  incredible  speed. 


With  a  monochrome  monitor 
your  520ST  displays  640  x  400 
pixels  of  extremely  high  resolu- 
tion clarity.  Select  a  color  monitor 
and  you  are  able  to  create  beautiful 
graphs  and  diagrams  from  a  pal- 
ette of  51 2  vivid  colors. 

Power  to  grow.  An  array  of 
expansion  ports  allow  you  to  easily  customize  your 
520ST.  There  are  standard  serial  and  parallel  interface 
ports  for  connecting  printers  and 
telecommunications  equipment,      £Jli^jyx:^^:r'"   -i^, 
WD[  connectors  to  interface  with       ■  :->"  " 
music  synthesizers  and  keyboards,  .  .„ 

and  3.5  inch  floppy  disk,  cartridge 
and  joystick  ports.  There  Is  also  a 
hard  disk  port  with  the  lightening  -•■ 

communications  speed  of  1.33 
Megabytes  per  second.  ATARI  520ST  systems  are  avail- 
able now.  When  it  comes  to 
state-of-the-art  technology 
...don't  settle  for  less.  And 
when  It  comes  to  price 
...don't  pay  a  penny  more. 

For  the  dealer  nearest  you  call 

408/745-2367. 

Or  write  to: 

ATARI  Corp. 

Customer  Service 

11 96  Borregas  Ave. 

Sunnyvale,  CA  94086 
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SYSTEM  INCLUDES:  520ST  Personal  Computer, 
Monochrome  Monitor.  Mouse  Controller.  3.5  inch  Disk  Drive, 
TOS"  -  The  Operating  System  Disk 
ATARI  Logo"  Language  Disk 
With  full  cofoi  monnor:  S999.95' 


